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1  Introduction 

1.1  Expert  Systems 

Expert  systems  are  designed  to  perform  the  tasks  currently  performed  by  human 
experts.  The  specialized  knowledge  that  a  human  expert  has  is  placed  in  the 
expert  system  program.  If  constructed  properly,  the  expert  system  will  request 
the  same  information  that  an  expert  would  request,  and  then  output  the  same 
decision  that  the  expert  would.  These  programs  are  useful  because  there  is 
usually  a  shortage  of  qualified  human  experts  in  a  given  field.  The  computer 
can  be  fully  informed  of  changing  facts  at  all  times  and  will  never  get  fatigued 
or  temperamental.  Also  an  expert  system  can  apply  the  expertise  of  several 
human  experts,  if  so  programmed,  and  can  free  human  experts  to  do  more 
creative  work.  Many  expert  systems  have  already  been  developed  to  perform 
tasks  like  medical  diagnosis,  geological  analysis,  computer  configuration  design 
and  more[8,9]. 

Expert  systems  are  divided  into  a  knowledge  base  and  an  inference  part.  The 
knowledge  base  is  kept  separate  because  it  must  be  allowed  to  grow  and  change, 
while  the  inference  program  part  is  not  changed.  The  knowledge  base  is  made  up 
of  decision  rules  and  facts,  which  the  program  uses  when  a  result  is  to  be  output. 
Since  an  expert  must  make  decisions  based  on  data  with  questionable  accuracy, 
an  uncertainty  factor  is  often  associated  with  knowledge  base  information.  For 
instance,  a  medical  diagnosis  program  may  have  a  rule  stating  “the  patient 
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has  Disease!  with  a  confidence  level  of  90%  if  x-rays  show  condition  A  with  a 
confidence  level  of  85%  and  symptoms  B  and  C  are  present” .  The  role  of  the 
inference  part  would  be  to  ask  the  user  for  input,  process  the  proper  rules  and 
output  an  acceptable  result. 

The  construction  of  expert  systems  is  called  knowledge  engineering.  Acquiring 
the  knowledge  is  the  most  important  step  because  the  expert  system  will  only  be 
as  good  as  the  knowledge  base  it  uses.  The  programmer,  or  knowledge  engineer, 
must  have  some  familiarity  with  the  domain  of  the  expert  system.  Then  the 
knowledge  engineer  must  tap  the  expertise  of  the  domain  expert,  a  person  that 
has  expertise  in  the  given  area,  who  may  or  may  not  be  able  to  convey  his 
knowledge  readily.  The  knowledge  engineer  must  organize  the  information  into 
a  set  of  facts  and  decision  rules,  which  can  be  used  to  output  answers  that  the 
expert  thinks  are  feasible.  Problems  arise  in  rule  design  because  of  uncertainty, 
since  an  expert  must  make  decisions  based  on  facts  with  confidence  levels  less 
than  100%.  When  the  confidence  levels  of  facts  and  rules  in  the  knowledge  base 
have  been  determined  w»«.h  accuracy,  the  likelihood  of  the  expert  system  doing 
the  intended  job  is  much  greater. 

Choosing  the  tool  of  implementation  is  the  next  problem  in  expert  system  de¬ 
sign.  Early  expert  systems  were  designed  using  ad  hoc  methods.  They  were 
designed  from  the  ground  up,  using  system  and  domain  dependent  strategies. 
There  are  now  many  useful  expert  system  design  tools,  among  which  are  KEE 
(knowledge  engineering  environment  [6])  and  ART  (automated  reasoning  tool 
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[1,2]).  The  main  problems  with  these  tools  are  cost  and  complexity.  An  univer¬ 
sity  researcher  has  developed  a  free  expert  system  tool  called  MPROLOG(4]. 
This  tool  provides  a  designer  with  the  programming  power  of  PROLOG  (a 
logic  programming  language[3]),  as  well  as  providing  the  representation  power 
of  fuzzy  confidence  levels  in  the  knowledge  base.  A  description  of  this  expert 
system  design  tool  is  presented  below. 

MPROLOG  is  used  to  implement  the  expert  system  discussed  in  this  paper.  A 
description  of  the  expert  system,  “a  F-lll  Wing  Commander  Consultant”,  and 
its  implementation,  starting  with  the  knowledge  acquisition  and  design  phases, 
are  discussed  in  part  2.  The  problems  encountered  developing  the  expert  system 
and  problems  due  to  MPROLOG  are  also  presented.  Finally,  an  evaluation  of 
MPROLOG  as  an  expert  system  development  tool  will  make  up  part  3. 

1.2  MPROLOG 

MPROLOG  is  an  expert  system  development  tool  designed  by  Dr.  John  Mi¬ 
nor  and  implemented  by  Martin  Flatebo  in  1988  to  complete  a  masters  degree 
in  computer  science  at  the  University  of  Nevada,  Las  Vegas[4].  MPROLOG 
is  written  in  Common  LISP  on  the  Symbolics  3600  series  machines.  The  pur¬ 
pose  of  MPROLOG  is  to  increase  the  capabilities  of  the  powerful  programming 
language  PROLOG,  by  supplementing  the  language  with  multi-valued  logic  ca¬ 
pabilities.  Standard  PROLOG  uses  simple  two-valued  logic  leaving  no  room  for 
uncertainty.  MPROLOG  allows  programmers  to  store  information  with  uneer- 
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tainties  baaed  on  minimal-bounded  fuzzy  logic.  The  usefulness  of  PROLOG  as 
an  expert  system  development  tool  is  therefore  greatly  enhanced  since  uncer¬ 
tainties  are  put  directly  into  the  knowledge  base  and  manipulated  automaticall) 
by  the  language  interpreter.  This  allows  the  knowledge  engineer  a  mechanism 
for  implementing  the  full  knowledge  of  the  expert,  even  in  uncertain  cases. 

The  fundamental  piece  of  knowledge  in  MPROLOG  is  the  fact.  Facts  are  the 
same  as  single  predicates  in  first-order  logic.  For  instance,  likes(john,mary) 
could  mean  “jchn  likes  mary” .  A  group  of  facts  with  the  same  predicate  name 
could  be  thought  of  as  a  database  relation.  The  following  example  demonstrates 
this: 


Group  of  Facts 

plane(  111,  fighter,  damaged  ). 
plane(  121,  fighter,  available  ). 
plane(  211,  bomber,  damaged  ). 
plane(  221,  bomber,  available  ). 

Plane  database  relation 


plane# 

type 

status 

111 

fighter 

damaged 

121 

fighter 

available 

211 

bomber 

damaged 

221 

bomber 

available 

MPROLOG  is  not  frame-based  like  ART  and  KEE.  The  inheritable  properties 
from  other  relations  must  be  extracted  with  rules.  Rules  are  Horn  clauses  which 
are  processed  using  backward-chaining. 
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MPROLOG  facts  look  like: 


p{c}(<i.<i.  •••>*»). 


where  p  is  a  predicate  (the  fact  name), 

c  is  the  optional  uncertainty  factor,  or  truth  value  (0  <  c  <  1), 
are  terms  (attributes  of  the  fact). 


MPROLOG  rules  look  like: 


P{co}(*ii*2t  qi{ci}(sn,Su,...,Sim,), 

qj{ca}(rsi ,  S32,  ...,sjma), 


q*{c*}(**i.su, 

where  p  is  the  head  predicate  of  the  rule, 
c,’s  are  the  optional  uncertainty  factors  (0  <  e*  <  1), 
q<’s  are  predicates  that  make  up  the  tail  of  the  rule, 
t,  ’s  and  s,j 's  are  the  terms  for  the  respective  predicates. 

If  an  uncertainty  factor  is  absent,  MPROLOG  assumes,  like  PROLOG,  that 
the  fact  or  rule  is  100%  true.  Otherwise  the  uncertainty  factor  is  treated  as  a 
minimal  bound  on  the  truthfulness  of  the  fact  or  rule. 

MPROLOG  works  by  resolving  rules  against  rules  and  facts.  The  first  rule  is 
invoked  at  the  MPROLOG  prompt  •*?-*.  At  this  point,  the  question  calls  the 
system  interpreter.  For  example,  a  system  with  the  above  rule  could  be  invoked 
with"?-  p{.7}(ai,aj,  ...,an).”  A  rule  p  is  satisfied  (the  head  is  true  to  at  least 
level  co)  if  each  q<  is  true  with  a  truth  value  of  at  least  c,-.  Any  q<  that  matches 
a  fact  is  true,  and  any  q<  that  matches  the  head  of  a  rule  will  cause  MPROLOG 
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to  attempt  to  satisfy  the  tail  of  its  rule  in  this  same  way.  When  a  rule’s  tail 
cannot  be  satisfied,  backtracking  occurs  in  an  attempt  to  resatisfy  the  rule  in  a 
different  way. 

2  The  F-lll  Wing  Commander:  a  MPROLOG 
Expert  System 

2.1  The  Expert  System  Domain 

The  domain  of  this  expert  system  is  an  F-lll  wing  commander  circa  1975 
(Vietnam  War  era).  The  wing  commander  is  expected  to  assign  planes,  weapons 
and  weapon  fusings  to  missions  which  field  personnel  want  to  see  implemented. 
The  conditions  of  the  mission  affect  the  number  of  planes  needed,  the  types  of 
weapons  used  on  the  mission,  and  the  fusing  of  those  weapons.  The  commander 
issues  a  mission  assignment  if  the  needed  planes  and  weapons  are  available.  The 
wing  commander  does  not  assign  the  individual  pilots  because  this  is  done  at  a 
lower  command  level. 

The  calculation  of  the  number  of  planes  and  their  weapon  loads  is  done  by  first 
considering  certain  factors  like  low  altitude  cover  and  terrain  (affecting  target 
visibility  and  hit/miss  probability),  target  materials  (affecting  load  types  and 
fusing),  defensive  positions  and  anti-aircraft  weaponry  (affecting  the  number 
of  planes  needed),  etc.  These  factors  are  looked  up  in  mission  implementation 
manuals,  the  suggestions  are  noted,  and  the  commander  estimates  the  number 
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of  planes  needed  and  the  type  of  loads  needed  for  a  mission  consisting  of  the 
given  factors.  An  intelligence  officer  keeps  the  commander  briefed  on  current 
conditions  on  all  missions. 

The  expert  system  is  assist  with  the  duties  of  the  wing  commander.  It  will  in¬ 
teract  with  the  field  personnel  by  querying  about  the  type  of  mission,  problems 
which  can  possibly  affect  the  mission,  and  the  desired  completion  level  for  the 
mission.  If  the  mission  can  be  implemented,  the  expert  system  should  make 
a  suggestion  by  listing  the  number  of  planes,  types  of  weapons,  and  types  of 
weapon  fusings  needed  to  carry  out  the  request.  If  the  mission  cannot  be  im¬ 
plemented,  the  system  should  cite  possible  factors  for  this,  such  as  insufficient 
supplies  or  too  difficult  conditions. 

The  expert  system  is  expected  to  maintain  databases  for  missions,  planes  and 
weapons,  so  field  personnel  can  check  the  status  of  these  items.  The  expert 
system  also  allows  changes  and  deletions,  to  a  certain  degree,  to  the  mission 
database.  Changes  to  the  plane  and  weapon  databases  are  unlimited,  but  there 
is  a  password  system  protecting  access  to  these  databases.  A  standard  file  is 
used  when  starting  up  the  expert  system  from  scratch.  The  field  personnel 
can  also  edit  a  saved  session  of  the  expert  system.  Changes  can  be  made  to 
the  system  to  reflect  more  current  conditions,  but  no  special  capability  for  the 
opinions  of  an  intelligence  officer  are  provided. 

The  domain  expert,  Colonel  E.  Kowaksyk,  USAF  retired,  was  a  pilot  of  F-lll 
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aircraft  during  the  Vietnam  War.  He  has  extensive  knowledge  of  missions  imple¬ 
mented  during  this  era,  and  knows  the  expected  effectiveness  for  these  missions. 
His  knowledge  is  largely  declarative,  and  he  had  no  problems  relating  heuristic 
values  or  describing  critical  factors.  He  was  very  patient  in  explaining  much 
of  the  military  jargon  and  semantic  knowledge,  and  was  helpful  in  eliminating 
unimportant  factors  and  establishing  restrictions  on  other  factors. 

2.2  Design  of  the  Expert  System 

The  expert  system  consists  of  databases  for  planes,  weapons,  missions,  and 
mission  components.  The  plane  database  keeps  track  of  plane  status  and  avail¬ 
ability.  The  weapon  database  holds  the  amount  available  of  each  weapon  type. 
The  mission  database  consists  of  many  attributes:  mission  number,  >  ype,  desired 
completion  level,  start  time,  location,  and  number  of  planes.  Mission  compo¬ 
nent  databases  also  exist  to  keep  track  of  data  associated  with  each  mission, 
including  lists  of  the  number  of  planes  carrying  a  certain  load  with  a  certain 
weapon  fusing. 

The  expert  system  is  menu  driven.  The  menu  breakdown  was  developed  by  Dr. 
Minot,  who  also  created  the  idea  of  the  F-ill  wing  commander  expert  system. 
The  top  level  menu  of  the  expert  system  has  5  choices:  plan  mission,  change 
miaiion,  check  status,  change  database  and  quit  the  system.  The  plan  mission 
selection  is  where  the  expert  knowledge  is  used.  The  other  selections  are  simply 
used  to  configure,  change  and  check  the  databases,  and  will  not  be  discussed 
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further. 


The  plan  mission  section  is  used  to  develop  a  mission  frame.  A  mission  frame 
example  follows: 


mission  number  :  1 

location:  locname 

start-time:  1200 

mission  type:  interdiction 

number  of  planes  assigned:  33 

desired  completion  percentage:  60-75% 

Also  associated  with  this  frame  is  a  mission-component  frame  and  a  list  of 
assigned  planes  with  corresponding  weapon  loads  and  fusings. 

The  plan  mission  section  starts  by  querying  for  location  and  start-time  of  the 
mission.  The  mission  number  is  supplied  by  the  system.  Then  the  user  is  asked 
to  select  from  the  following  mission  types:  interdiction  against  a  target,  area 
preparation,  close-air  support,  and  24  hour  alert.  The  interdiction  selection 
also  brings  up  a  menu  on  target  types:  personnel  concentration,  unarmoured 
vehicles,  armoured  vehicles,  building  complex,  roads/railroads,  and  bridges.  Se¬ 
lection  of  any  mission  type  results  in  a  series  of  menus  appearing  which  are 
designed  to  get  a  proper  description  of  important  factors  for  the  chosen  mission 
(see  figure  1  for  a  list  of  these  factors).  All  of  these  factors  are  represented  as 
menus  except  for  the  24  hour  alert  selection,  which  simply  asks  for  the  num¬ 
ber  of  planes.  A  final  menu  records  the  desired  completion  percentage  for  the 
mission.  This  completion  level  specifies  to  the  expert  system  the  importance 
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Mission  Type 


Affecting  Factors 


interdiction:  personnel 


force  size  of  targeted  personnel, 
terrain  type,  protective  cover, 
defensive  positions,  anti-aircraft  guns, 
surface-to-air  missile  sites,  visibility 


interdiction:  unarmored  vehicles 


interdiction:  armored  vehicles 


interdiction:  building  complex 


interdiction:  road/railroad 


interdiction:  bridge 


area  preparation 


size  of  vehicle  convoy,  terrain  type, 
protective  cover,  anti-aircraft  guns, 
surface-to-air  missile  sites,  visibility 

number  of  vehicles,  terrain  type, 
protective  cover,  anti-aircraft  guns, 
surface-to-air  missile  sites,  visibility 

area  of  complex,  building  materials, 
anti-aircraft  guns,  surface-to-air  missile 
sites,  visibility 

number  of  cuts,  road/railroad-bed  type, 
anti-aircraft  guns,  surface-to-air  missile 
sites,  visibility 

length  of  bridge,  building  materials, 
anti-aircraft  guns,  surface-to-air  missile 
sites,  visibility 

size  of  area  to  prepare,  terrain  type, 
protective  cover,  defensive  positions, 
armored  vehicles,  anti-aircraft  guns, 
surface-to-air  missile  sites,  visibility 


close-air  support 


force-size  to  support,  terrain  type, 
protective  cover,  defensive  positions, 
armored  vehicles,  anti-aircraft  guns, 
surface-to-air  missile  sites,  visibility 


24  Hour  Alert 


number  of  planes  to  put  on  alert. 


Figure  1 


10 


and  priority  level  of  the  mission.  (The  desired  completion  percentage  for  a  24 
hour  alert  is  automatically  assumed  to  be  100%.) 

The  expert  system  takes  ail  these  mission  factors  and  resolves  them  against  rules 
to  figure  out  the  number  of  planes,  load  types  and  fusings  needed  for  the  mission 
to  meet  the  desired  completion  level.  If  there  are  enough  planes  and  weapons 
to  meet  mission  specifications,  the  system  suggests  the  number  of  planes  and 
weapons  required.  The  system  user  can  then  assign  or  scrap  this  suggested 
mission.  Assigning  the  mission  causes  the  system  to  subtract  the  number  of 
planes  and  amount  of  each  weapon  used  from  the  appropriate  databases,  as 
well  as  adding  the  mission  to  the  mission  database.  If  the  number  of  planes  or 
the  amount  of  any  weapon  type  is  insufficient  for  the  mission,  then  the  system 
tells  the  user  the  mission  cannot  be  implemented.  Factors  are  then  cited  as  to 
why  the  mission  cannot  be  implemented: 

Mission  requires  X  planes  but  only  Y  available. 

Not  enough  of  weapon  X  to  implement  mission. 

Some  important  factors  limiting  the  mission  completion  may  also  be  cited: 

Heavy  foliage  makes  completion  level  difficult. 

Urban  cover  makes  completion  level  difficult. 

Dense  Fog  makes  completion  level  difficult. 

Mountainous  terrain  makes  completion  level  difficult. 

Lowering  the  desired  completion  level  may  help. 


2.3  Knowledge  Acquisition  Phase 


The  knowledge  acquisition  stage  was  interleaved  with  the  design  of  the  program. 
Initially  Dr.  Minor  worked  on  the  design  of  the  menu  framework  with  the 
domain  expert,  Col.  Kowalczyk.  The  mission  types  were  established,  and  the 
factors  involved  in  each  mission  were  listed.  A  method  of  supplying  values  for 
these  factors  was  needed,  and  so  menus  were  chosen  because  they  would  limit 
difficulties  in  user  input.  Menus  also  allowed  the  programmer  a  simple  way 
of  defining  ranges  of  values  to  be  input.  The  information  flow  for  the  expert 
system  program  had  been  established,  but  more  interviewing  was  needed  to  get 
menu  ranges.  The  expert  supplied  much  semantic  information  that  was  used 
in  developing  the  menus,  such  as  dividing  force  sizes  into  units  like  squads, 
platoons  and  battalions,  and  dividing  anti-aircraft  guns  and  SAM-site  sizes  into 
sections,  batteries  and  battalions. 

The  most  important  menu  established  was  the  desired  completion  percentage. 
This  menu  required  many  adjustments.  The  expert  recalled  that  missions  with 
above  60%  completion  were  considered  satisfactory,  missions  with  over  75% 
completion  were  considered  excellent,  but  missions  with  over  90%  completion 
were  rare.  This  led  to  a  final  percentage  range  breakdown  of :  20-44%,  45-59%, 
60-74%,  75-89%,  90-100%.  The  60-74%  range  was  considered  the  basis  value  for 
the  facts  in  the  rule-base.  Since  above  90%  completion  was  very  difficult,  our 
expert  stud  the  number  of  planes  needed  to  implement  a  mission  at  that  level 
would  be  3  times  the  number  needed  at  the  60-74%  level.  The  75-89%  level  was 


considered  1.5  times  as  difficult,  while  45-59%  and  20-44%  were  considered  0.8 
and  0.4  times  as  difficult  respectively. 

Other  factors  were  decided  declaratively.  These  included  things  like  anti-aircraft 
guns  and  SAM-sites.  The  expert  estimated  the  number  of  planes  these  devices 
could  eliminate  at  each  of  their  respective  menu  levels.  The  expert  also  esti¬ 
mated  multiplier  values  for  these  other  menus:  terrain,  protective  cover  and 
low-altitude  visibility.  These  multipliers  were  created  to  increase  the  number  of 
planes  to  a  level  that  would  make  the  desired  completion  level  attainable.  The 
number  of  planes  required  to  implement  every  mission  type  at  the  basis  level 
was  recorded  and  placed  in  the  rule-base.  The  load  types  and  fusings  associ¬ 
ated  with  each  mission  type  was  also  recorded.  Certain  mission  types  could  be 
affected  by  defensive  positions  and  protective  cover  factors,  which  could  also 
require  different  weapon  loads. 

There  were  few  decision  rule  requirements  for  the  system.  Since  the  number 
of  planes  for  each  mission  type  and  each  menu  level  were  in  the  database,  al¬ 
ternative  rules  were  no  problem[7].  Weapon  loads  were  determined  in  a  similar 
fashion  and  again  alternative  rules  did  not  occur.  This  was  due  to  the  menu  im¬ 
plementation  which  narrowed  the  weapon  load  assignments  by  supplying  specific 
menu  values. 


2.4  Implementing  the  Knowledge  Base 

The  implementation  of  the  knowledge  base  was  done  as  follows  by  Grant  Wright. 
Each  mission  had  specific  plane  and  weapon  assignments  for  each  menu  value. 
The  basis  completion  percentage  value  was  60-74%.  Thus  if  the  menu  for  mission 
type  typejc  had  menu  values  1,  2,  and  3,  and  these  menu  values  required  5,  10, 
and  20  planes  to  allow  completion  at  the  basis  level  then  the  facts  would  look 
like  this: 

assn{.60}  (type.*, 1,5). 
assn{.60}  (type_x,2,10). 
assn{.60}  (type_x,3,20). 

To  find  the  values  of  these  at  different  percentages,  the  following  rules  would  be 
used: 


assnf.20}  (type_x,M,NP)  assnf.60}  (typeji,M,N),  NP  is  N*0.4. 
assn  {.45}  (type_x,M,NP)  assn  {.60}  (typejc,M,N),  NP  is  N*0.8. 
assn{.75}  (type_x,M,NP)  assn{.60}  (type_x,M,N),  NP  is  N*1.5. 
assn{.90}  (typejr,M,NP) assn{.60)  (typeji,M,N),  NP  is  N*3.0. 

This  is  how  all  initial  plane  assignments  are  handled.  The  actual  number  of 
planes  can  be  higher  because  of  multipliers  from  other  factors,  as  well  as  the 
addition  of  planes  because  of  factors  like  anti-aircraft  guns  and  SAM-sites. 

Load  types  and  fusinp  are  decided  by  asserting  appropriate  percentages  of 
weapons  for  each  mission  type.  The  weapon  types  and  fusinp  vary  on  specific 
menu  criteria  that  characterise  a  mission.  Load  rules  look  like  this: 

lcad_missiontype(  MissionNum,  Factors,  Percentages  )  > 


assert(  loadpc(  MissionNum,  Loadi,  Fuaei,  Percent)  ), 
assert(  loadpc(  MissionNum,  Load],  Fuse),  Percent?)  ), 

assert(  loadpc(  MissionNum,  Loadn,  Fusen,  Percent,,)  ). 

The  Percentages  variable  is  needed  for  missions  that  have  more  than  one  set 
of  load  constraints.  Area  preparation  missions,  for  example,  are  affected  by 
defensive  positions  and  protective  cover. 

Implementing  the  weapon  loads  as  assertions  to  a  new  ioadpc  database  was 
necessary  for  many  reasons.  The  most  important  reason  was  the  absence  of  list 
access  in  MPROLOG.  The  easiest  way  of  implementing  the  loads  would  have 
been  to  construct  a  list  of  load  and  fuse  tuples.  This  would  have  avoided  costly 
assertions  and  deletions  to  unnecessary  databases. 

A  similar  database  called  badjamt  was  created  later  to  find  the  actual  amounts 
of  each  weapon  for  the  mission.  Then  a  database  with  tuples  for  mission  number, 
number  of  planes,  plane  bads,  load  fusings,  and  bad  amount  was  also  created 
to  store  the  actual  mission  data.  Even  this  could  have  been  implemented  more 
effldently  as  lists. 

Certain  aUo winces  had  to  be  made  for  underflow.  Missions  against  small  forces 
with  bw  desired  completion  levels  tended  to  need  less  than  2  planes.  This 
caused  iero  planes  carrying  nothing  to  be  asserted  into  the  database  because 
most  missions  needed  more  than  2  weapon  types.  This  was  solved  using  a 


n  laximum  attribute  attractiveness  rule.  The  expert  supplied  weapon  types  for 
each  mission  that  were  considered  most  essential.  Only  these  weapons  were 
asserted  in  cases  of  underflow. 

2.5  Examples 

All  examples  have  been  tested  using  the  Wing  Commander  expert  system.  The 
mission  suggestions  and  failure  factors  are  those  provided  by  the  expert  system. 

The  menu  ordering  is  that  found  when  running  the  Wing  Commander.  A  listing 
of  menus  used  by  the  expert  system  is  given  in  Appendix  A,  and  the  small  letters 
used  below  refer  to  that  list.  These  examples  all  start  by  choosing  “plan  mission” 
from  the  top-level  menu  (a). 

Example  1 

Close  air  support  mission:  a  company  is  to  be  provided  with  close  air  support. 
The  company  is  travelling  over  rough  terrain  under  a  jungle  cover.  Enemy 
positions  will  be  underground  (in  tunnels).  No  armored  vehicles,  anti-aircraft 
guns,  SAM-sites  are  expected  to  be  encountered.  Low  altitude  visibility  is  clear 
and  the  mission  should  be  carried  out  to  75%  satisfaction  level.  Set  location  as 
“loc  1”  and  time  at  0830  hours. 

Menu  (appendix  letter)  Selection 

Select  Mission  Type(b)  close-air  support 

Select  Principle  Terrain  Type(e)  mountainous  /  rough 
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Select  Protective  Cover  Type(f) 

Select  Type  of  Defensive  Position(g) 
Est.  Number  of  Armored  Vehides(m) 
Eat.  Number  of  Anti-aircraft  Guns(h) 
Est.  Number  of  SAM-sites(i) 

Low  Altitude  Cover(j) 

Desired  Completion  Percentage(k) 


heavy  forest  /  jungle 

tunnels 

none 

none 

none 

clear 

75  -  89% 


The  Wing  Commander  system  outputs  the  following  suggestion: 

5  planes  will  carry  60  napalm  bombs  with  impact  fusing 
5  planes  will  carry  100  5001b  HD  bombs  with  impact  fusing 
1  planes  will  carry  16  cluster  bombs  with  proximity  fusing 
4  planes  will  carry  16  20001b  bombs  with  delay  fusing 
All  15  planes  will  carry  a  total  of  30000  rounds  of  20mm 


Example  2 


Bridge  mission:  A  large  concrete  bridge  is  to  be  destroyed.  The  bridge  crosses 
a  gorge  of  approximately  250  feet.  Expect  a  battery  of  anti-aircraft  guns  and  a 
section  of  SAM-sites.  Visibility  is  hasy  due  to  heavy  rain  in  the  area.  A  50% 
completion  level  will  be  satisfactory.  Set  location  as  “loc  2”  and  time  at  1130 
hours. 


Menu  (appendix  letter)  Selection 


Select  Mission  Type(b) 

Select  Principle  Target  Type  (c) 
Estimate  Length  of  Bridge  in  Feet(r) 
Select  Bridge  Materiai(s) 

Est.  Number  of  Anti-aircraft  Guns(h) 
Est.  Number  of  SAM-sites(i) 

Low  Altitude  Cover(j) 

Desired  Completion  Percentage(k) 


interdiction 
bridge 
200-300 
concrete 
3-6  (battery) 
1-2  (section) 
hasy  /  heavy  rain 
45  -  59% 


The  Wing  Commander  system  outputs  the  following  suggestion: 


2  planes  will  carry  32  7501b  bombs  with  delay  fusing 
2  planes  will  carry  8  20001b  bombs  with  delay  fusing 
4  planes  will  carry  96  air-to-ground  missiles  with  impact  fusing 
All  8  planes  will  carry  a  total  of  16000  rounds  of  20mm 


Example  3 


Area  preparation:  an  area  of  more  than  one  square  mile  has  been  requested  to 
be  cleared.  The  area  is  in  a  mountainous  area  in  thick  jungle.  Enemy  positions 
include  a  set  of  bunkers  and  a  platoon  of  armored  vehicles.  No  anti-aircraft 
devices  are  expected  and  visibility  will  likely  be  clear.  Completion  level  of  70% 
is  satisfactory.  Set  location  as  “loc  3”  and  time  at  0310  hours. 


Menu  (appendix  letter)  Selection 


Select  Mission  Type(b) 

Select  Area  in  Square  Miles  (t) 

Select  Principle  Terrain  Type  (e) 
Select  Protective  Cover  Type(f) 
Select  Type  of  Defensive  Position(g) 
Est.  Number  of  Armored  Vehicles(ra) 
Est.  Number  of  Anti-aircraft  Guns(h) 
Est.  Number  of  SAM-sites(i) 

Low  Altitude  Cover(j) 

Desired  Completion  Percentage(k) 


area  preparation 
1-11/2 
mountainous 
heavy  forest  /  jungle 
concrete  bunkers 
1-4  (platoon) 
none 
none 
clear 
60  -  74% 


This  mission  will  fail.  The  Wing  Commander  states  the  following: 


Not  enough  planes  to  implement  mission.  57  needed  but  only  50 

available. 

Mountainous  terrain  makes  completion  level  difficult. 

Heavy  foliage  makes  completion  level  difficult. 

Lowering  the  iesired  completion  level  may  help. 

If  the  mission  is  attempted  again  at  45-59%  completion,  the  result  is: 

12  planes  will  carry  192  cluster  bombs  with  proximity  fusing 
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2  planes  will  carry  40  3001b  HD  bombs  with  impact  fusing 
2  planes  will  carry  32  7501b  bombs  with  impact  fusing 
2  planes  will  carry  8  20001b  with  impact  fusing 
IS  planes  will  carry  60  20001b  bombs  with  delay  fusing 
15  planes  will  carry  240  7301b  bombs  with  delay  fusing 
All  48  planes  will  carry  a  total  of  96000  rounds  of  20mm 


2.6  Limitations  of  the  Expert  System 


The  framework  of  the  program  is  very  restrictive.  In  the  era  of  the  wing  com¬ 
mander,  planes  could  carry  mixed  loads,  although  only  certain  loads  could  be 
mixed  on  any  one  plane[5].  This  could  have  been  implemented  if  the  list  notation 
of  PROLOG  existed  in  MPROLOG. 

The  system  automatically  quits  resolving  against  rules  when  there  is  an  insuf¬ 
ficient  amount  of  any  weapon  load.  Suggesting  the  mission  anyway  and  simply 
telling  the  user  that  it  cannot  be  implemented  would  have  been  better. 

The  numbers  for  most  of  the  mission  suggestions  seem  to  “round” .  This  prob¬ 
lem  occurs  with  floating  point  numbers,  which  must  be  represented  as  strings  in 
MPROLOG.  Multiplication  of  these  numbers,  which  lose  accuracy  being  repre¬ 
sented  as  strings,  compounds  the  numerical  error.  MPROLOG  also  had  no  way 
of  providing  an  upper-bound  limit  on  the  completion  percentage. 

Verifying  the  expert  systems  operation  could  not  be  carried  out  fully.  The  only 
source  to  verify  the  system  was  the  domain  expert  since  access  to  the  military 
information  needed  was  impossible.  The  verification  consisted,  more  or  less, 
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of  showing  the  domain  expert  a  series  of  missions  suggested  by  the  system  for 
given  inputs.  These  simulations  were  carried  out  on  a  variety  of  different  mission 
types,  and  in  each  case  the  domain  expert  evaluated  the  results  of  the  program 
and  suggested  corrections.  Adjustments  to  the  rule  base  were  made  until  the 
expert  verified  that  subsequent  simulations  produced  satisfactory  results. 

3  Evaluation  of  MPROLOG 

3.1  Advantages  of  MPROLOG 

MPROLOG  has  a  distinct  advantage  over  other  expert  system  design  tools 
since  it  is  based  on  PROLOG.  PROLOG  is  familiar  to  everyone  in  the  artificial 
intelligence  community,  and  thus  most  knowledge  engineers  would  be  familiar 
with  it.  In  MPROLOG  one  can  perform  non- monotonic  reasoning,  a  feature 
present  in  both  KEE  and  ART.  Database  facts  are  basically  the  same  in  all 
three  systems.  The  rule  types  in  KEE  and  ART  can  be  modeled  in  MPROLOG, 
but  both  KEE  and  ART  have  messier  LISP-like  implementations.  A  person 
designing  an  expert  system  in  KEE  or  ART  must  have  a  good  understanding  of 
LISP,  must  learn  the  syntax  of  the  specific  tool,  and  must  learn  to  work  with 
a  new  system-dependent  environment.  MPROLOG  only  requires  the  designer 
to  understand  PROLOG.  MPROLOG  does  not  require  specialised  training  of 
system  personnel  to  keep  it  running.  It  can  simply  be  loaded  onto  a  system  and 
run  like  any  PROLOG  implementation. 
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MPROLOG  features  a  way  of  updating  information  in  the  database  with  the 
built-in  predicates  support  and  detract,  as  well  as  the  standard  PROLOG  predi¬ 
cates  assert  and  retract.  These  operators  work  by  “adding”  some  confidence  per¬ 
centage  to  a  given  rule  when  support  is  used,  and  “subtracting”  some  confidence 
percentage  when  detract  is  used.  In  diagnostic  expert  systems  applications,  this 
would  be  incredibly  useful. 

3.2  Problems  with  MPROLOG 

Some  of  MPROLOG’s  advantages  become  its  problems.  The  fact  that  MPRO¬ 
LOG  is  based  on  PROLOG  gives  it  the  power  of  that  programming  language, 
but  also  the  problems  associated  with  PROLOG  are  inherited:  basic  count¬ 
ing  is  a  task  in  PROLOG;  asserting  and  deleting  database  items  is  not  order 
preserving;  infinite  looping  and  recursion  can  occur  easily  in  PROLOG;  some 
predicates  allow  the  programmer  to  write  rules  that  are  unsafe. 

List  notation  was  left  out  of  MPROLOG,  and  implementing  list  operations  using 
the  tisp  predicate  is  incredibly  difficult.  Using  the  LISP  quote  function  seems 
impossible,  and  the  lack  of  the  “|”  operator  from  PROLOG  is  a  major  drawback. 
Floating  point  handling  must  also  be  improved  and  expressions  should  be  eval¬ 
uated  as  arguments  to  functions  and  predicates  before  being  passed.  Another 
helpful  fix  would  involve  the  uncertainty  values.  If  the  system  provided  ways 
to  allow  variables  in  the  uncertainty  value  field,  MPROLOG  would  be  more 
powerful. 
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Procedural  attachments  available  in  ART  and  KEE  are  not  available  in  MPRO- 


LOG.  Through  these  procedural  attachments,  both  ART  and  KEE  support 
object  oriented  programming.  The  inheritance  properties  in  ART  and  KEE 
provide  easy  classification  methods  not  present  in  MPROLOG.  Of  course  a 
programmer  has  the  power  in  MPROLOG  to  create  these  properties  and  at¬ 
tachments,  although  they  are  not  built-in. 

Overall,  the  problems  of  MPROLOG  may  hinder  the  knowledge  engineer,  but 
all  of  these  problems  are  correctable.  If  mended,  MPROLOG  will  be  very  useful. 
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A  Appendix:  Menus  from  Wing  Commander 


a)  Fighter  Mission  Dispatching  System: 

plan  mission 
change  mission 
check  status 
change  database 
quit 

b)  Select  Mission  Type: 

interdiction 
area  preparation 
close-air  support 
on  24-hour  alert 

c)  Select  Interdiction  Target  Type: 

personnel  camp 
unarmored  vehicles  (convoy) 
armored  vehicles 
building  complex 
roads/railroads 
bridge 

d)  Select  Approximate  Force  Size: 

squad  (1-10) 
platoon  (  11-30) 
company  (  31  -  100  ) 
battalion  (  101  -  350  ) 
regiment  (  351  •  1000  ) 
larger  (over  1000) 

e)  Select  Principle  Terrain  Type: 

flat 

rolling  hills 
mountainous  /  rough 

f)  Select  Protective  Cover  Type: 


light  trees  /  scattered  buildings 
heavy  forest  /  jungle 
city  /  urban  area 

g)  Select  Principle  Type  of  Defensive  Position: 
none 

trenches/earth  works 
tunnels 

reinforced  concrete  bunkers/caves 

h)  Estimate  Number  of  Anti-aircraft  Guns: 
none 

1-2  (section) 

3-6  (battery) 

7  -  18  (battalion) 
over  18 

i)  Estimate  Number  of  SAM  Sites: 
none 

1  -  2  (section) 

3  -  6  (battery) 

7  -  18(battalion) 
over  18 

j)  Low  Altitude  Cover: 
clear 

light  rain  /  drizzle 
haze  /  heavy  rain  /  fog  patches 
dense  fog  /  smoke 

k)  Estimate  Desired  Mission  Completion  Level: 

20  -  44% 

45  -  59% 

60  -  74% 

75  -  89% 

90  -  100% 


1)  Estimate  Number  of  Unarmoured  Vehicles: 


16  to  20 
more  than  20 

m)  Estimate  Number  of  Armored  Vehicles: 
none 

1-4  (platoon) 

5-12  (company) 

13-36  (battalion) 
more  than  36 

n)  Estimate  Size  of  Buildings  in  Square  Feet: 

under  1000 
1000  to  2500 
2500  to  5000 
5000  to  10,000 
10,000  to  20,000 
over  20,000 

o)  Select  Building  Material  Type: 

wood,  straw,  or  tents 
sandbag  reinforced  hut 
brick 

reinforced  concrete 

p)  Select  Road/Railroad  Target  Type: 

simple  cut 
double  cut 
intersection/fork 
major  junction 

q)  Road  Type  /  Railroad  Underlining: 

dirt 

macadam  /  rock 
concrete 

r)  Estimate  Length  of  Bridge  in  Feet: 


under  50 


50  -  100 
100  -  200 
200  -  300 
over  300 


s)  Select  Bridge  Material: 

wood 

concrete 

steel 

t)  Select  Area  in  Square  Miles: 


0-  1/4 
1/4  -  1/2 
1/2-  1 
1-11/2 
11/2-2 
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B  Appendix:  Source  Code  for  Wing  Comman¬ 
der 


» 


I 


I 


I 


» 


I 


I 


(/users/masl/gwright/lonnie/gex.mprolog) 

/  *  Stnctnn  of  Wing  Commander  expert  system 


level 

description 

predicates 

1 

Plan  Mission 

processfl,..) 

1.1 

Interdictions 

process  11 

1.1.1 

personnel  concentration 

processllfpc,..) 

1.1.2 

an armored  vehicles 

processllfuv,..) 

1.1.3 

armored  vehicles 

process  llfav,..) 

1.1.4 

bntldinq  complex 

processllfbc,..) 

1.1.5 

roads  /  railroads 

process  IJfrr,..) 

1.1.6 

bridges 

processllfbridge,..) 

1.2 

Area  Preparation 

process  IfartaPrcp,. .) 

1.3 

Close- air  Support 

process  1  f close  A  irSupport, . .) 

1.4 

On  24  Hour  Alert 

process  l(on24  Hr  Alert,..) 

2 

Change  Mission 

process  ft,..) 

2.1 

Delete 

processif Mnum,  del) 

2.2 

Location 

processif  Mnum,  loc ) 

2.5 

Time 

processif  M  nnm,  time) 

2.4 

Completion  % 

processif  Mnum, cmp) 

3 

Check  States 

process  f 3,..) 

3.1 

Stains  of  Planes 

processSfl) 

3.2 

Status  of  Weapon  Loads 

processS(2) 

3.3 

Status  of  Missions 

proc  easSfS) 

4 

Change  Database 

process  f 4,-) 

40 

Change  Password  for  Access 

processif 0) 

41 

Change  Plane  Amounts 

processif  1) 

4.1.1 

number  of  unassigned 

process!  If ua) 

4.1.2 

number  on  maintenance 

process!  lfsm) 

4.1.3 

number  with  battle  damage 

processllfbd) 

4-1.4 

number  malfunctioning 

process!  l(mf) 

4-2 

Change  weapon  amonnli 

process!  ft) 

4.2.1 

amonnt  of  20mm 

process!  if mmiO) 

4.2.2 

amount  of  Cluster  Bombs 

process!  if cb) 

4.2.3 

amonnt  of  5001b  high  drug 

proccssltfhdSOO ) 

42-4 

amonnt  of  5001b  low  drug 

process!  ifldSOO ) 

4-2.5 

amonnt  of  7501b 

process!ifm750) 

4.2.6 

amount  of  20001b 

process!  if m 2000) 

4.2.7 

amonnt  of  napalm 

proctsslt(napahn) 

4.2.3 

amonnt  of  air-to-ground 

processlifatg) 

5 

Quit 

processf5,..) 

round(X.Y) 

WisX  +  0.5, 
lisp<Y,  truncate,  W). 

tronc(X.Y)  linp(Y,  truncate, X). 

bkjunt(ram20,0).  /*  Keeps  track  of  toad  usage  daring  weapon  assignment  */ 

bk.amt(cb.O).  /  *  In  case  same  weapon  used  with  different  fusing  *f  so 

bk_orat(hd 500,0).  /  *  Mast  he  reset  every  time  a  mission  is  planned  *f 

bk_amt(ld500,0). 

bk_omt<m750.0). 
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name.of)mm20,"2O  ■•")  !. 

naroe_of(cb,  "cluster  boabs")  !. 

name.of) hdSGO , M SOOlb  high  drag  boaba")  .-  !.  60 

name.of)  ld500," 5001b  low  drag  boaba")  !. 

name.of) m750, "7501b  boaba")  !. 

aame_of(m2000,  "20001b  boaba")  !. 

name.of)  napalm,  "napala")  !. 

name_of)atg,"air  to  ground  aiaailoa") 

expert  /*  Start  the  database  by  typing  expert  at  the  prompt  */ 

clear.db, 
lisp)  Ana, newdb), 

opcn_prop«r(  Ana  ),  !,  to 

do(0). 

clear.db 

mission)  M,  Sol.  .  ), 

retract (  mission)  M,  .Sol. . ), 
killJoadamts(M),  kill.sugg(M),  kill_loadpc(M), 
reraoveTypeAttr)  M,Sel), 
clear.db. 

clear.db  cpaaa,  ccounta,  cplanea,  cweapa.  so 

cpaaa 

paaswordQ, 

replace)  paaawordQ,  paaaword(secrei)  ) 

cpaaa. 

ccounta 

count(J,  miscount).), 
retract (  count(J  ), 
retract (  miacount(J  ). 

ccounta.  90 

cplanea 

uaplanesQ, 

retract)  uaplaoea(J  ),  retract)  asplaaesfj  ),  retract)  bdplanes(J  ), 
retract)  mfplanes)  J  ),  retract)  smpianes(J  ). 

cplanea. 

cweapa 

weapon)  mm20,  .  ), 

retract)  weapon)  mm20,  .  )  ),  retract)  weapon)  cb,  .  )  ),  retract)  weapon)  hd500,  .)), 
retract)  weapoo(ld500,J  ),  retract)  weapon)  m750,  .  )  ),  retract)  weapon)  m2000,  J), 
retract)  weapon)  napalm,  .  )  ),  retract)  weapon)  atg,  .  )  ).  too 

cweapa. 

open j> roper)  n  )  :- 

aak) 'Supply  tile  name  of  year  database  (in  quotes  with  .aprolog) : ’.Name), 

[Name]  4*1, 

write)'  File  '.Name,'  is  ia  the  work  space. .. '),nl. 
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open_proper{  y  ) 

[“standards .  nprolog"]. 

no 

do(Activity) 

Activity  s  quit, 
liap(Ans,  exitMenu), 
saveDB(Ans). 

saveDB(Ans)  /  *  Save  session  «n  a  file  */ 

An*  =  ’y', 

write(H  Supply  prefix  file  nan*  (without  . sprolog)  to  save  database  ia:“), 
read(SaveMe),  nl. 

tell(SaveMe),  1:0 

count Jisting, 

missionListing, 

planeListing, 

weaponLiating, 

listl,  list2,  list3, 

list 4,  listS,  list6,  Ust7,  listg. 

listD,  list  10,  listl  1.  Iistl2. 

Iistl3,  listl4,  listl5, 
told. 

130 

saveOB(AM)  told. 

count  Jisting  listing(  count  ),  listing(  miscount  ). 

count  Jisting. 

plane  Lis  ting 

listing(uaplanes)  Jisting(smplanes)  ,  listmg(  b  dplanes) , 
listing(mfplanes),listing(asplanes). 
planeListing. 

no 

weaponLiating  listing  weapon). 

weaponListing. 

missionListing  Us  ting(  mission), 

miaion  Listing. 

listl  listing(n*w jpi_amt). 

listl. 

Iist2  U*ting(  bk.amt  ). 

list!  1S0 

Iist3  listing^  password  ). 

Iist3. 

Iist4  i-  Ust ing(  personnel) . 

Iist4. 

lists  listing^ u Vehicles) . 

lists. 

listS  listingfa Vehicles ) . 

lists. 

Iist7  Ustiag(buiklingB). 
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lists  listing!  cuts). 

listS. 

Iist9  -  listing  bridge). 

Iiat9. 

list  10  listing!  areaPrep). 

list  10. 

listll  listing!  doseAirSupport). 
list  11 . 

list  12  listing! on24Hr  Alert ) . 

list  12. 

list  13  listing  load  pc), 

list  13. 

Iistl4  listing!  load_amt ) 

list  14. 

list  15  listing(sugg_miss). 

list  15. 


do!  Activity)  !,  process! Activity,  Next).  do!  Next). 

ISO 

process(0,  Next)  /*  Process  selections  from  menu  */ 

lisp( Selection.  menuO), 
process(Selection,  Next). 


process!  1,  0)  nl,  f*  Plan  Mission  level  l  */ 

writ«( ' Plan  mission'),  nl, 
miasionNum(Mnuni), 
pesetbk, 

ask(’ Enter  mission  location:',  Mloc),  190 

ask  ( 'Eater  mission  starting  time: ',  Me  tart), 
lisp! Selection,  selectMission), 
p  roc  ess  1(  Selection,  Mnum,  Inter), 
get_cp(  Sel,  Comp  ), 

ass ignP lanes< Mnum.  Selection,  later.  Cotnp,  NPs),  !, 
rouad(  NPs,  Planes  ), 

1 

»♦ 

implement  .mission!  Mourn,  MIoc,  Mstart,  Planes,  Selection,  Inter,  Comp  ). 

get_cp(  oo24HrAlert,  0).  too 

get.cp(  Sel,  Comp  ) 

limp!  Comp, compperc) . 

resetbk 

replace!  bk.amt!ram20,J,bk.amt(  mm20,0)), 
replace!bk.aint!cbjfbk.amt(eb,0)), 
replace!  bk_amt(  hd500 J  ,bk.amt(  hd500  ,0)), 
replace!  bk.am*!ld500,J  ,bk.amt(  ld500,0)), 
repl*ce(bk_aint!  m750,  J.bk.amt!  m750,0)) , 

replace<bk_amt!m2000.J,bk.anit(ni2000T0)),  210 

replace!  bk.  amt!  napalm,  J ,  bk_amt(  oapaim.O)), 
teplace(bk.smt!atg,J  ,bk.amt(atg,0)). 
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/*  .Vow,  assign  planes,  loads  &  fusings  !!! 

astifnPlanes  gets  total  #  of  planes  needed  and  computes  load  factors 
by  asserting  a  new  database.  Then  loadmtype  is  called  to  assign 
those  loads  to  each  plane  for  missions  of  type  mtype...  */ 

a*eignPlanes(M,  on24HrAlert,  none,  Comp,  Nplanes) 
on24HrAlert(  M,  Nplanes  ), 
load_24hr(  M  ). 

assignPlanes(M,  doseAirSupport,  none,  Comp,  TotPlanes) 

c)oeeAirSupport(  M,  FS,  Terr,  PC,  DP,  AV,  AA,  SS,  LC), 
aasnpc(  Comp,  cloeeAirSupport,  FS,  Nplanes  ), 
assign_std_factors(  AA,  SS.  AddPlanes  ), 
aasign_avs(  AV,  AddMorePlanes  ), 
compute_ten_factors(  Terr,  PC,  LC,  TFactor  ),!, 

X  is  Nplanes  *  TFactor.  Y  is  AddPlanes  +  AddMorePlanes. 

TotPlanes  is  X  +  Y, 

cond_load(  M,  cloeeAir.  DP). 

/*  loadjcloseAirf  M,  0.5  ),  Cover  only  for  area  prep 

covjsndjdeff  .if,  PC,  DP  ).  */ 

cond_Ioad(  M,  closeAir,  none  ) 
load_doeeAir(  M,  1.0  ). 

cond_load(  M,  closeAir,  DP  ) 

load_closeAir(  M,  0.75  ), 
defpos_loads(  M,  0.25,  DP  ). 

aasignPlanes(M,  areaPrep,  none,  Comp,  TotPlanes) 

areaPrep(  M,  AR,  Terr,  PC,  DP,  AV,  AA,  SS,  LC  ), 
assnpc(  Comp,  areaprep,  AR,  Nplanes), 
assign_stdJfactors(  AA,  SS,  AddPlanes  ), 
a*sign_avs(  AV,  AddMorePlanes  ), 
compute, terr_factors(  Ten,  PC,  LC,  TFactor  ),  !, 

X  is  Nplanes  *  TFactor,  Y  is  AddPlanes  4-  AddMorePlanes, 

TotPlanes  is  X  +  Y, 

load„ap<  M,  0.75  ), 
cov_and_de£(  M,  PC,  DP  ). 

assignPlanes(M,  interdiction,  pc,  Comp,  TotPlanes) 

personnel  M,  FS,  Ten,  Pcov,  DP,  AA,  SS,  LC  ), 
assnpc(  Comp,  pc,  FS,  Nplanes  ), 
assign_std.factors(  AA,  SS,  AddPlanes  ), 
compute.ten_facton(  Ten,  Pcov,  LC,  TFactor  ),  !, 

X  is  Nplanes  *  TFactor, 

TotPlanes  is  X  +  AddPlanes, 
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cond_load(  M,  pc,  DP  ). 

/*  load jers(  M,  0.5  ),  Cover  only  for  area  Prep 

covjandjeff  M,  PC,  DP  ).  */ 

cond_load(  M,  pc,  none  ) 

Io*d_pera(  M,  1.0  ). 

cond  load(  M,  pc,  DP  )  :- 
load_pers(  M,  0.75  ), 
defpos_loada(  M,  0.25,  DP  ). 

cov_and_def(  M,  PC,  none  ) 

cover Joada(  M,  0.25,  PC  ). 

cov_and,def(  M,  PC,  DP  ) 

cover  loads(  M,  0.125,  PC  ), 
defpos_loads(  M.  0.125,  DP  ). 

assignPlanes(M,  interdiction,  uv,  Comp,  Tot  Planes) 
uVebicles(  M,  UV,  Terr,  PC,  AA,  SS,  LC  ), 
assnpc(  Comp,  uv,  UV,  N planes  ), 
assign_std_facto»(  AA,  SS.  AddPIanes  ), 
compute_terr_factors(  Terr,  PC,  LC,  TFaetor  ),  !, 

X  is  N planes  *  TFaetor, 

TotPlanes  is  X  +  AddPIanes, 

load_uv(  M,  1.0  ). 

/  *  loaijav(  U,  0.5  ),  cover  shouldn’t  affect 

cover Jood»(  M,  0.5,  PC  ).  *J 

aasignPlanes(M,  interdiction,  av,  Comp,  TotPlanes) 
aVebides(  M,  AV,  Terr,  PC,  AA,  SS,  LC  ), 
assnpc(  Comp,  av,  AV,  N planes  ), 
assign,avs(  AV,  AddPIanes  ), 
compute,  terrjac  to  rs(  Terr,  PC,  LC,  TFaetor  ),  !, 

X  is  Nplanes  *  TFaetor, 

TotPlanes  is  X  +  AddPIanes, 
loadjsv(  M,  1.0  ). 

/*  loodjavf  M,  0.5 ),  cover  shouldn’t  affect 

coverjoodsf  M,  0.5,  PC  ).  */ 

assignP!anes(M,  interdiction,  be,  Comp,  TotPlanes) 
buildings(  M,  Area,  Mats,  AA,  SS,  LC  ), 
assnpc(  Comp,  be,  Area,  Nplanes  ), 
assign„std„faetors(  AA,  SS,  AddPIanes  ),  !, 

TotPlanes  is  Nplanes  +  AddPIanes, 

load_buildmats(  M,  1.0,  Mats  ). 
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assignPlanea/M,  interdiction,  rr,  Comp,  TotPlanes) 

cuts/  M,  NC,  RT,  AA,  SS,  LC  ),  320 

aaanpc(  Comp,  rr,  NC,  Nplanes  ), 
assign_std_factors(  AA,  SS,  AddPlanes  ).  !, 

TotPlanes  is  Nplanes  +  AddPlanes. 

load_cuts(  M,  1.0,  RT). 

aa*ignPlanes(M,  interdiction,  bridge,  Comp,  TotPlanes) 
bridge/  M,  Len,  Mat,  AA,  SS.  LC  ), 

aasnpc(  Comp,  bridge,  Len,  Nplanes  ),  330 

assign_std_factors(  AA,  SS,  AddPlanes  ),  !, 

TotPlanes  is  Nplanes  +  AddPlanes, 

Ioad_bridgemats(  M.  1.0,  Mat  ). 

ask(Question,  Response)  write( Question). 

read/ Response) ,nl,write(  "rsspons s  Response,  '*>" ) ,ni. 

process l(interdiction,  Mnum,  Selection)  lisp( Selection,  targetType),  340 

processil(Selection,  Mnum). 

processll(pc,Mnum) 

lisp/ES/oreeSue), 

lisp(  Terrain, terrain), 

lisp(Pcov,pcover), 

lisp(DefPos,defpos), 

airdef(AA,SS), 

lisp(LC,locover), 

replace/  personnel!  Mnum . J ,  “  350 

personnel Mnum,  ES,  Terrain. Pcov.  DefPos,  AA,  SS,  LC)). 

replace(Cl.C2)  Cl,  retract/Cl),  assert(C2) 

replace/ C1.C2)  assert(C2). 

process  ll(uv, Mnum) 

uavefaicles(UV), 
lisp/Terrain.terrain), 
lisp/  Peor.pcowr), 

air  deft  AA,SS),  360 

liap/LCJocover), 

replace/ u Vehicles/ Mnum . ).  uVehicles(Mnum,UV,Terrain,Pcov,AA,SS,LC))- 

processll(av,Mnum) 

lisp<AV,avehicies), 

lisp/Terrain.terrain), 

liep(Pcov,peover), 

airdeftAA^S), 

lisp/LCJocow), 

replace/  a  Vehicles/  Mnum . ),  aVehides/  Mnum,AV,Terrain,Pcov,AA.SS,LC)).  3:0 


14:57  Apr  19  1990 


Pope  7  of /ten/ meet/ gwngkt/ tonne/ get.mpnlog 


(/users/masl/gwright/lonnie/gex.mprolog) 


process  ll(bc, Mnum) 

lispfSF.buildingarea), 
lisp( Material,  buildingMats), 
airdef(AA,SS), 
lisp(LC.locover), 

replace(building3(Mnum,_,_,  J,  buildings(Mnum.  SF,  Material,  AA,  SS.LC)). 


process  ll(rr,Mnum) 

lisp(FC,ncuts), 

lisp(RT.roadtype), 

airdef(AA,SS), 

lisp(LC,locover), 

replace!  cuts!  Mnum . ),  cuts(Mnum,FC,RT,AA,SS,LC)). 

process ll(bridge,Mnum) 

lisp(Len.bridgelen), 
lisp( Material,  bridgeMats), 
airdef(AA.SS), 
lisp(LC,locover), 

replace! bridge! Mnum . )■  bridge(Mnum,  Len,  Material.  AA,  SS.  LC)). 

process  l(areaPrep,  Mnum,  none) 
lisp(Area,  area), 
lisp(Terrain,  terrain), 
liap(Pcov,  pcover), 
lisp(DefPos,  defPos), 
armoredVehicles(AV) , 
airdef(AA,SS), 
lisp(LC,locover), 

replace!  area?  ret>!  Mnum . ),  - 

areaPrep(Mnum,  Area,  Terrain,  Pcov,  DefPos,  AV,  AA,  SS,  LC)). 

armoredVehicles(AV)  lisp(AV,av2). 

uavehides(UV)  lisp(UV,u vehicles). 

airdef(X,Y)  aaGuns(X),  samSites(Y). 

aaGuns(AAguns)  lisp(AAguns,aadef). 

samSites! S  AMsites)  lisp(S  AMsites  .samsites). 

process  l(dossAirSupport,  Mnum,  none) 

Usp(ForceStse,  forceSise), 
lisp(Terrain,  terrain), 
l»p(Pcov,  pcover), 
lisp(  DefPos,  defPos), 
armoredVehicles(AV), 
airdef(AA,SS), 
liap{LC,locower), 

replace!closeAirSuDPort!Mnum . ). 

closeAirSupport(Mnum,ForceSize, Terrain,  Pcov,  DefPos,  AV  ,AA, SS.LC)). 

process  l(on24HrAlert,  Mnum,  none) 


380 


330 


400 


410 


420 
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write<  ’ 24  hoar  alert'),  nl.  uaplanes( Count), 
nl,  writef  ’lumber  of  unaasigned  pianos  *  ')• 
writ«{ Count),  nl, 

writa(’Ioe  many  pianos  aro  to  bo  pat  on  24  hoar  alert?  ’), 
r«ad(NumP  lanes),  nl, 

replace(on24HrAlert(Mnum.J,on24HrAlert(Mnum.N’umPlanes)).  430 

suggest!  M  )  :—  /  *  Output  a  ”  suggestion”  for  the  given  mtsston  St  */ 

sugg_miss(  M,  Load.  Fuse,  Amt.  Planes  ), 
name_of(  Load.Lname) , 

print  line(  Load,  Planes,  Amt,  Laame,  Fuse  ), 

fail. ' 

suggest!  M  ). 


print Jine(  mm20,  Planes,  Amt,  Lname,  Fuse  )  .-  mo 


write("All  ".Planes."  sill  also  carry  ".Amt."  rounds  of  20m  "), nl.nl.nl. 

print _line(  Load.  Planes.  Amt.  Lname.  Fuse  ) 

Load  |=  mm20, 

write( Planes,"  pianos  sill  carry  ",Amt,"  units  of  ".Lname,"  with  a  ".Fuse,"  fusing."). 

nl. 

/*  implement jmission(  Mnum,  Nplanes,  MisstonTgpe,  Interdiction  Type  ) 

450 

At  this  point,  an  attempt  to  implement  the  mission  u  put  forth. 

Failure  in  implement  mission  occurs  if  the  number  of  planes  available 

is  insufficient.  Failure  in  calculations  results  if  an  augmented 

plane  amount  is  still  insufficient.  Failure  in  morejcalculaiions 

results  when  there  are  insufficient  weapon  loads  of  an g  kind.  */ 

implement_mission(  Mnum,  Mloc,  Mstart,  NP,  Sel,  Inter,  Comp  )  .- 
uapianes(  X  ), 

X  >=  NP, 

!,  460 

calculations!  Mnum,  Mloc,  Mstart,  NP,  Sel,  Inter,  Comp  ). 

implement.mission(  Mnum,  Mloc,  Mstart,  NP,  Sei,  Inter,  Comp  ) 
uaplaass(X), 

wnta(Mfot  enough  pianos  in  database  tor  nission  u,Mnum)jil, 
writm("  Mission  requires  "  NP,"  pianos,  only  ",X,"  available.  »),nl,nl, 

excuss(  Mnum,  Sel,  Inter,  Comp,  NP  ), 
finally Jmplemeflt(  2,  Mnum,  Sei,  Inter,  NP  ). 

calculation*!  Mnum,  Mloc,  Mstart,  NP,  on24HrAlert,  none,  Comp  ):-  470 

uaplanes(  X  ), 

X  >a  NP, 

speciai_24(  Mnum,  NP  ), 

more.ealculations(  Mnum,  Mloc,  Mstart,  NP,  on24HrAlert,  none,  Comp  ). 

calculations(  Mnum,  Mloc,  Mstart,  NP,  Sel,  Inter,  Comp  )■- 
Sel  j=  on24HrAlert, 
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calc_load_amts(  Mnum.  NP  ), 
new_pl_amt(  Mnum.  NNP  ), 

uaplane*!  X  ),  -iso 

X  >=  NNP. 

retract (  newj>l_amt(  Mnum.  NNP  )  ), 

i 

more_calculations(  Mnum.  Mloc,  Mstart.  NNP,  Sel,  Inter.  Comp  ). 

calculations!  Mnum,  Mloc,  Mstart,  NP,  Sel,  Inter,  Comp  ) 
not(  new_pl_amt(jJ  ), 
too_few(  Mnum,  Sel.  Inter.  NP), 

more_calculations(  Mnum.  Mloc,  Mstart,  NP,  Sel,  Inter,  Con  p 

490 

calculations!  Mnum,  Mloc,  Mstart.  NP.  Sel,  Inter,  Comp  )  /*  Sot  enough  of  weapon  */ 

uaplanes(X), 

new_pl_amt(  Mnum,  NNP  ), 

retract (  new_pl_amt(  Mnum.  NNP  )  ), 

write(HVot  enough  planes  in  database  for  aission  ",Mnum),nl, 

write( '*  Mission  requires  “.NNP."  planes,  only  ",X,"  available. "), nl.nl. 

exctise(  Mnum.  Sel,  Inter.  Comp,  NP  ), 

finally  .implement!  2,  Mnum.  Sel,  Inter,  NP  ). 

special  24{  Mnum,  NP  )  :—  /  *  Kludge  to  avoid  approximations  on  24 Hr  Alert  mission  */  soo 

'  LI  is  45*NP, 

L3  is  .10*NP, 

trunc(Ll,Rl), 

trunc(Ll,R2), 

round(L3,R3), 

figure(NP,Rl,R2,R3,X,Y), 

loadpc(  Mnum,  LD1,  FI,  PCI  ), 

r«tract(  loadpc(  Mnum,  LD1,  FI,  PCI  )  ), 

loadpc(  Mnum,  LD2,  F2,  PC2  ),  — 

retract(  loadpc(  Mnum,  LD2,  F2,  PC2  )  ),  510 

loadpc(  Mnum,  LD3,  F3,  PC3  ), 

retract!  loadpc(  Mnum,  LD3,  F3,  PC3  )  ), 

std.load_amts(  LDl,  Amtl  ), 

std_load_amU(  LD2,  Amt2  ), 

std  load_amts(  L03,  Amt3  ), 

AN1  in  AmtI*X, 

AN2  is  Amt2*Y, 

AN3  is  Amt3*R3, 

load  _and.su  ggest(  Mnum,  AN1,  LDl,  FI,  X  ), 

load_and_tuggeat(  Mnum,  AN2,  LD2,  F2,  Y  ),  520 

load  _and.su  ggest(  Mnum,  AN3,  LD3,  F3,  R3  ). 


figure!  NP,  X,  Y,  Z,  NX,  NY  ) 

T  is  X  +  Y  +  Z, 

NP  =  T, 

NX  is  X, 

NY  is  Y. 

figure!  NP,  X,  Y,  Z,  NX,  NY  ) 

X  =  Y,  XXX  is  X  +  l, 
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figure*  NP,  XXX,  Y,  Z,  NX,  NY  ). 


figure*  NP,  X,  Y,  Z,  NX,  NY  )  YYY  is  Y  +  1.  figure*  NP,  X,  YYY.  Z,  NX,  NY 


set.npa*  A,  B,  C  )  :-  B  >  C,  A  is  B. 
set_npa(  A,  B,  C  )  A  is  C. 

too  Jew*  Mnum,  Sel,  Inter,  NP)  /*  Too  few  is  evoked  when  underflow  occurs  *[ 

killjoadamts*  Mnum  ),  kill.sugg*  Mnum  ), 
princjoad*  Mnum,  Sel,  Inter.  Lode,  Fuse  ), 
stdJoad_amta(  Lode,  Amt  ), 
weapon*  Lode,  Amt  Avail  ), 

AmtNeeded  is  NP  *  Amt, 

Amt  A  vail  >  AmtNeeded, 

assert*  load_amt(  Mnum,  Lode,  Fuse.  AmtNeeded  )  ), 
assert*  suggjniss*  Mnum,  Lode,  Fuse.  AmtNeeded,  NP  )  ). 


too  Jew*  Mnum,  Sel,  Inter,  NP) 

princjoad*  Mnum.  Sel.  Inter.  Lode.  Fuse  ), 
assert*  load.amt*  Mnum.  Lode,  Fuse,  0  )  ). 

too  Jew*  A,  B,  C,  D  ). 

more_calculations(  Mnum,  Mloc.  Mstart,  NP,  Sel,  Inter,  Comp  ) 
caic_20(  Mnum,  NP  ), 
not*  load  .amt*  Mnum.^O  )  ), nljil.nl, 

write*"  Sere  is  a  suggestion  for  inpleaenting  nission  ",Mnum),nl, 

write*" - "),nljil, 

suggest*  Mnum  ), 
lisp*  A  ns,  assnmission  ), 

finally Jmplement*  Ans,  Mnum,  Sel,  Inter,  NP-), 

assert Jfjiecessary*  Ans,  Mnum,  Mloc,  Sel,  Mstart,  NP,  Comp  ). 


more.calculations*  Mnum,  Mloc,  Mstart,  NP,  Sel,  Inter,  Comp  ) 
report  Jail  ures*  Mnum  ), 
excuse*  Mnum,  Sel,  Inter,  Comp,  NP), 

t 

•1 

finally  Jmplement*  2,  Mnum,  Sel,  Inter,  NP  ). 

load_20(  Mnum,  NP  ) 

stdjoad.amts*  mm20,  Amt  ), 
weapon*  mm20,  Old  ), 

SP  is  Amt*NP, 

NewAmt  is  Old  -  SP, 

replace*  weapon(mm20,O!d),  weapon(mm20, NewAmt)  ). 

assert Jf.necessary*  1,  Mnum,  Mloc,  Sel,  Mstart,  NP,  Comp  ) 

assert  (mission*  Mnum,  Mloc,  Sel,  Mstart,  NP,  Comp  )),  sso 

uapianes*  X  ),  asplanes*  Z  ),  miscount*  R  ), 

Y  is  X  -  NP,  W  is  Z  +  NP,  S  is  R  +  l, 
replace*  uapianes*X),  uaplanes(Y)  ), 


/*  Not  enough  of  weapon  */ 


570 
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replace^  aapianes(Z),  asplanes(W)  ), 
replace(  miacount(R),  miscount(S)  ). 

aasert_if_necee«ary(  2,  Mnum,  _,  kill_sugg(  Mnum  ). 

/*  excuse  cover  possible  reasons  for  a  missions  failure  */ 

590 

excuse(  Mnum,  cloeeAirSupport,  none.  Comp,  N  )  !, 

cioeeAirSupport(  Mnum,  Terrain,  Pcover,  LC), 

terrExcuse(  Terrain  ), 
pcovExcuse(  Pcover  ), 
compExcuse(  Comp  ). 

excuse(  Mnum.areaPrep  ,  none.  Comp,  N  )  - 

areaPrep(  Mnum.  Terrain,  Pcover.  .,  _,  LC), 
terrExcuae(  Terrain  ), 

pcovExcuae(  Pcover  ),  -soo 

compExcuse(  Comp  ). 

excuse(  Mnum.  interdiction,  pc.  Comp.  N  )  - 

peraonnel(  Mnum,  Terrain.  Pcover.  _.  _,  LC), 
terrExcuae(  Terrain  ), 
pcovExcuae(  Pcover  ), 
compExcuse(  Comp  ). 

excuse(  Mnum,  interdiction,  uv,  Comp,  N  )  -  '. 

uVehiciea(  Mnum,  Terrain.  Pcover.  _,  LC).  «io 

terrExcuae(  Terrain  ), 
pcovExcuae(  Pcover  ), 
compExcuae(  Comp  ). 

excuse(  Mnum,  interdiction,  av,  Comp,  N  )  .-  '. 

aVehidea(  Mnum,  Terrain,  Pcover.  _,LC). 
terrExcuae(  Terrain  ), 
pcovExcuae(  Pcover  ), 
compExcuae(  Comp  ). 

620 

excuse(  Mnum,  interdiction,  be,  Comp,  N  )  -  ’. 
buiidinga<  Mnum,  LC  ), 

loeovExcuae(  LC  ), 
compExcuae(  Comp  ). 

excuae(  Mnum,  interdiction,  rr,  Comp,  N  )  -  !. 
cuta(  Mnum,  LC  ), 

locovExcuaef  LC  ), 
compExcu*e(  Comp  ). 

630 

excuse(  Mnum,  interdiction,  bridge,  Comp,  N  )  -  ', 
bridge(  Mnum,  LC  ), 

locovExcuae(  LC  ), 
comp£xcuae(  Comp  ). 

excuae(  Mnum,  X,  Y,  Z,  W  ) 
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comp£xcuse(  0  ). 
compExcuaef  1  ). 

compExcuae{  2  ).  -mo 

compExcuoe^  3  )  :-  ni,  write)  "Attoapting  to  drop  coaplotioa  percentage  nay  aid  you."), 

comp  Excuse)  4  )  ni,  write)"Attoapting  to  drop  coaplotioa  porcontago  can  aid  you."). 

compExcuse(  5  )  ni,  write)"  Attoaptiag  to  drop  coaplotioa  porcontago  sill  aid  you."). 

terrExcuse(mountains)  ni,  write)  "Mountainous  torrain  aakoo  coaplotioa  level  difficult."' 

terrExcuse(open). 

terrExeuse(hilly). 

pcovExcuse(open). 

pcovExcuse(sb).  -so 

pcovExcuse(jungle)  nl.  write)  "Heavy  foliago  aakoo  coaplotioa  lovol  difficult."). 
pcovExcuse) urban)  nl,  write( "Urban  cover  aakoo  eoaplotion  lovol  difficult."). 

locovExcuae(l). 

locovExcuse(2). 

locov  Excuse)  3)  ni.  write("Hazo/Hoavy  Raia/Fog  Patcboa  aako  coaplotioa  lovol  difficult.  " 

locovExcuse(4)  nl,  write("Doaoo  Fog/Saoko  aako  coaplotioa  lovol  vory  difficult."). 

calc_20(  Mnum,  NP  )  :—  /*  Find  amount  of  20mm  needed  to  implement  mission  */ 

stdjoad.amts)  mm20,  Amt  ),  660 

Amt  Needed  io  NP  *  Amt, 
weapon(  mm20,  Amt  A  vail  ), 

AmtNeeded  =<  Amt  A  vail, 

asoert(  sues  mioolMnum.  mm20,  impact,  AmtNeeded,  NP  )  ). 
calc.20(  Mnum,  NP) 

aooert(  load  _amt(  Mnum,  mm20,  impact,  0)  ). 

calcjoad.amts)  Mnum,  NP  )  /*  Find  amount  of  any  weapon  needed  to  implement  mission  */ 

loadpc(  Mnum,  Load,  Fuse,  P  ),  sro 

retract (  loadpc(  Mnum,  Load,  Fuse.  P  )  ), 

!t 

X  to  P*NP, 
round(X.Y), 

add_new_tot(  Mnum,  Y  ), 
stdjoad.amts)  Load,  AmtStd  ), 

AmtNeeded  is  Y* AmtStd,  /*  Y  is  #  of  planes  */ 

load_and.su ggest(  Mnum,  AmtNeeded,  Load,  Fuse,  Y  ),!, 
eak.load.amts)  Mnum,  NP  ). 

■sso 

calcjoad.amts)  Mnum,  NP  ). 

add_new_tot(  M,  0  ). 

add_new_tot(  M,  X  ) 

new_pl_amt(  M,  Y  ), 

Z  is  X  +  Y, 

replace)  new_pl_amt(M,Y),  aew_pl_amt(M,Z)  ). 
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add_new_tot(  M,  X  )  :-  assert(  new_pl_amt(  M,  X  )  ).  ski 

load_and_suggest(  Mourn.  AmtNeeded.  Load,  Fuse,  0  ).  /*  do  not  assert  0  planes  !!!  */ 

load_and_suggest(  Mourn,  AmtNeeded,  Load,  Fuse,  Y  ) 
weapon(  Load,  Amt  A  vail  ), 

bk_amt(  Load.  Used  ),  /*  Load  Total  used  on  same  weapon  */ 

Total  is  Used  +  AmtNeeded,  /*  (if  weapon  uses  with  different  fusings)  */ 

Total  =<  AmtAvail. 

replace^  bk.amtf Load. Used),  bk_amt(Load,Total)  ), 
assert.  load_and_sugg(  Mourn,  AmtNeeded,  Load,  Fuse,  Y  ). 

TOO 

assert_load_and.su  gg(  Mourn,  AmtNeeded,  Load,  Fuse,  Y  )  :- 
load_amt(  Mourn,  Load,  Fuse,  Other.Amt  ), 
sugg_miss(  Mourn,  Load,  Fuse,  Old. Amt,  OY  ), 

NY  is  OY  +  Y,  /*  Changing  #’s  in  case  weapon  already  asserted  */ 

Total.Amt  is  Other.Amt  +  AmtNeeded, 

replace(  load.amt(  Mnum.  Load.  Fuse,  Other.Amt  ), 

Ioad.amt(  Mnum,  Load.  Fuse.  Total.Amt  )  ), 
replace^  sugg_miss(  Mnum.  Load.  Fuse.  Other.Amt,  OY  ), 

sugg_miss(  Mnum,  Load.  Fuse.  Total.Amt,  NY  )  ). 

'10 

assert_load_and_sugg(  Mnum,  AmtNeeded,  Load.  Fuse,  Y  ) 

assert(  load_amt(  Mnum.  Load.  Fuse.  AmtNeeded  )  ), 
assert (  sugg_miss(  Mnum,  Load,  Fuse,  AmtNeeded,  Y  )  ). 

load_and_suggest(  Mnum,  AmtNeeded,  Load,  Fuse.  Y  )  :~ 
assert(  load_amt(  Mnum,  Load,  Fuse,  0  )  ). 

report_failures(  Mnum  ) 

load_amt(  Mnum,  Load,  _,  Amt  ), 

Amt  >  0,  too 

retract(  load.amt(  Mnum,  Load,  _,  Amt  )  >7 
report_failures(  Mnum  ). 

report_failures(  Mnum  ) 

load_amt(  Mnum,  Load,  Amt  ), 

Amt  as  0, 

name_of(  Load,  WeaponName  ), 

writa(”Vot  aaoufh  M, WeaponName,"  to  iapleasnt  aissioa  ",Mnum), 
retract(  load.amt<  Mnum,  Load,  .,  Amt  )), 

ceport.failures(  Mnum  ).  730 

report.failut«o(  Mnum  ). 

finally _implement(  1,  M,  S,  I,  NP  ) 
load.20(  Mnum,  NP  ), 
actually Joad(  M  ). 

actual ly_load(  Mnum  ) 

load.amt(  Mnum,  Load,  Fuse,  Amt  ), 

Amt  >  0,  740 

weapon (  Load,  X  ), 

Y  is  X  -  Amt, 
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replace!  weapon(Load,X),  weapon(Load.Y)  ), 
retract  (  load.amt!  Mourn.  Load.  Fuse,  Amt  )  ), 
actually _load(  Mourn  ). 

actually Joad(  Mourn  ). 

finally_implement(  2,  M,  S,  I,  NP  ) 

deletemtype!  M,  S,  I  ),  *so 

couot(  X  ), 

Z  la  X  -  l, 

replace!  couot(  X  ),  couot(  Z  )  ), 

kill.loadpc(  M  ),  /*  Remove  all  scratch  work  for  mission  */ 

kill.sugg!  M  ), 
killjoedamts!  M  ). 

kill  loadpc(  M  )  loadpc(  M.iVJ,  retract!  loadpc(  M.  kill_loadpc(  M  ). 

killjoadpc(  M  ). 

'-,0 

kill_loadamts(  M  )  - 

load.amt!  M .  .  .  ), 

retract(  load.amt!  M.  ), 

kill Joad amts(  M  ). 

kill.loadamt*!  M  ). 

killjsugg(  M  ) 

*uggjniaa(  M, 

retract!  suggjnias!  M,  ),  ~o 

kill.sugg!  M  ). 

kill.sugg!  M  ). 

dektemtype!  M,  interdiction,  pc  )  retract!  personnel!  M. .  ,  ...  . )  ). 

deletemtype!  M,  interdiction,  uv  )  retract!  uVehiclea(  M.  .  .  .  )  ). 

dektemtype!  M,  interdiction,  av  )  :-  retract!  aVehieles!  M .  )  ). 

dektemtype!  M,  interdiction,  be  )  retract!  buildings!  M.  )  ). 
deletemtype!  M,  interdiction,  rr  )  retract!  cuts!  M .  )  ). 

dektemtype!  M,  interdiction,  bridge  )  retract!  bridge!  M,,,,,  )  ).  '80 

dektemtype!  M,  cloaeAirSupport,  none  )  retract!  cloaeAirSupport!  M  )  )  * 

dektemtype!  M,  areaPrep,  none  )  retract!  areaPrep(  M. _  )  )■ 

deletemtype!  M,  oo24firAkrt,  none  )  retract!  on24HrAkrt(  M,_  )  ). 

std.load.amta!  cb,  16  ).  /*  in  fours  */ 

std.load.amta!  mm20,  2000  ). 
std.load.amta!  hdSOO,  20  ). 
std.load.amta!  IdSOO,  24  ). 
std.load.amta!  m750,  16  ). 

std.load.amta!  m2000,  4  ).  790 

std.load.amta!  napalm,  12  ). 

stdjoad  .amta!  atg,  24  ).  /•  in  sues  */ 

/*  prmcjoedf  Set,  Inter,  Lode,  Fuse  )  *[ 

princ.load!  M,  interdiction,  pc,  hd500,  impact  ). 
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princJoad(  M.  interdiction,  uv,  atg,  impact  ). 
princ_load(  M,  interdiction,  av,  atg,  impact  ). 
princJoad(  M,  interdiction,  be.  Lode,  Fuse  ) 
buiidings(  M,  Mats, 

pla_appropo(  be,  Mats.  Lode.  Fuse  ).  400 

princ_load(  M,  interdiction,  rr,  Lode,  Fuse  )  - 
cuts<  M,  Mats. 

pla_appropo{  rr,  Mats,  Lode,  Fuse  ). 

prinejoad)  M,  interdiction,  bridge  ,  Lode,  Fuse  ) 
bridge^  M,  MaU, 

pla_appropo(  bridge,  Mats,  Lode,  Fuse  ). 

princ_load(  M,  cioseAirSupport,  none,  hd500,  impact  ).  sio 

princ_load(  M,  areaPrep,  none,  m750.  delayed  ). 
prine_load(  M,  on24HrAlert,  none,  hd500,  impact  ). 

pla_appropo(  be,  wood,  napalm,  impact  ). 
pla_appropo{  be.  rhut,  m750.  proximity  ). 
pla_appropo(  be,  brick.  m2000,  proximity  ). 
pla_appropo(  be,  rc,  m2000,  delayed  ). 

pla_appropo(  rr,  1,  m2000,  delayed  ). 

pla_appropo(  rr,  2,  m750,  impact  ).  a  jo 

pla_appropo(  rr,  3,  m750,  impact  ). 

pla_appropo(  bridge,  wood,  m750,  impact  ). 
pla_appropo(  bridge,  concrete,  m2000,  delay  ). 
pla_appropo(  bridge,  steel,  m2000,  impact  ). 

missionNum(Mnum) 

count(X), 

Mnum  is  X  +  l, 

not)  mjaaton)  Mnum . 1).  aao 

replace)  count  ( X)  ,count(  Mnum) ) . 
missionNum(l). 

process) 5,  quit)  writeCQuit '). 
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t«vei( complete,  5, "90  -  100%M). 
level  (complete.  4, "75  -  89%"). 
level(complete.  3, "60  -  74%"). 
level(complete,  2, "45  -  59%"). 
level(complete,  1,"20  -  44%"). 
level) complete,  0,"100%"). 

location(Loc) 

nl,  write(  'Where  ere  the  planes  to  be  based?  ’), 

read)Loc),nl.  :o 

process(2,  0)  /*  Make  changes  to  missions  */ 

write) * Change  aission’),  ol.nl. 
miscount)  N  miss ) , 

Nmisa  >  0, 

write) ’There  ere  ' .Nmiss),  write)  *  mission(s)  ia  the  database. '), nl.nl. 
list  missions, 

ask(’ Which  aissioa  would  you  like  to  change  (enter  nuaber) :  ’.MN), 
show  Mission)  M  N ) , 

lisp(Which. attribute),  nl.  :o 

process2)  MN  .Which ) . 

process(2,  0)  miscount(Nmiss),  Nmiss  =  0.  nl.  write( "There  ere  no  planned  missions! !  !"),nl. 

process) 2,  0)  nl,  writa( ’aissioa  not  changed...’),  nl. 

continue(M) 

miaeion(M,  w  J, 

writ®)’ lew  Mission  Status:  Mission  ’..W), nl.nl, 

showMission(M).  so 

continue(M). 
process2(M,none). 

process2(M,del)  /•  Delete  this  mission  7 

return,  weapons)  M), 
remove.book.keeping)  M ) , 
miscount(X),  Y  is  X  -  1, 
replace)  miscount(X),  miscount(Y)  ), 
rairact(mission(M, .... )). 

return. weapons)  M) 

p  ull.and.rep  lace,  loads)  M),!, 
return. weapons)  M  ). 

return.weapons)  M):- 

nuasion)  M,  .  ,.NP.  ), 
uaplancs)  X  ), 

Y  is  X  +  NP,  50 

replace)  uaplaces)  X  ),  uap lanes)  Y  )  ), 

aapianes)  R  ), 

S  is  R  -  NP, 
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replace^  asplanes(  R  ),  a*planes(  S  )  ). 

pull_and_replaeeJoeds(  M):— 

sutf  miseC  M,  Lode,  Fusing,  Amt,  _  ),!, 
weapon (  Lode,  Old  ), 

New  Is  Old  +  Amt, 

replace{  weapon(  Lode.  Old  ),  weapon(  Lode,  New  )  ),  so 

retract (  juggjmss(  M.  Lode,  Fusing,  Amt,  _  )  ). 

pull_and_replace_loads(M):-  fail. 

remove_book_keeping(M) 

miasion(M,_,Type,J_J, 
removeTypeAttr(  M  .Type ) . 


process2(M,loc)  /*  Change  location  name  of  this  mission  */ 

ask( "Eater  se*  mission  location". Nloc),nl, 
misekmtM.^W.X.Y.Z), 

replace(tnission(M._,W,X.Y.Z), mission!  M.Nloc,VV,X,Y,Z)), 
continue(M). 

process2(M,time)  /*  Change  time  of  this  mtssion  *f 

ask  ("Enter  new  mission  start  time", Time), nl, 
missk>n(M,W,X,jY,Z), 

replace(miaeion(M,W,X,_>Y,Z),mission(M,W,X,Time,Y,Z)), 

continue(M). 

process2(M,cmp)  /*  Change  desired  completion  %  for  this  mission  */ 

mission(M,W,X,Y,Z,J, 
not(  on24HrAlert(  M,  _  )), 
lisp(  CP.compperc) , 
return_weapoos(M),!, 
miscount(J),  K  is  J  -  1, 
replace{  miscount(J),  miscount(K)  ), 
retrnct(misaion(M,W,X,Y,Z,J), 
resetbk, 

type_inter(M,X, Inter), 
aasignPlanes(M,X, Inter, CP, NP),!, 
round(  NP,  NPIaaes  ),!, 

impiement_nussion(  M,  W,  Y,  NPlanea,  X,  Inter,  CP  ), 
cootinne(M). 


:o 


so 


90 


process2(M,cmp) 

oo24flrAlert(M), 

write(  'Completion  percentage  tor  24  Boor  Alert  can  only  be  100%.  *). 

process2(M,cmp)  writn("ErTor  in  changing  miss  ion",  M),al. 

type.inter(M,  aremPrep,  none). 
type_inter(M,  on24HrAlert,  none). 
type.inter(M,  cioeeAirSupport,  none). 

type„inter(M,  interdiction,  pc)  personnel M - , - ). 

type.inter(M,  interdiction,  uv)  u  Vehicles!  M..  ,  .  ^). 
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type_inter(M,  interdiction,  av)  aVchiclestM.  ,  f  .  .  .  ). 

type.inter(M,  interdiction,  be)  building M . ). 

type_inter)M,  interdiction,  rr)  cuu(M . ). 

type.inter(M,  interdiction,  bridge)  bridge) M . ).  no 

type.inter(M,  X,  Y)  write)  ’ error  finding  mission  type  :  ’,X),nl. 

removeTypeAttr(M,interdiction)  personnel)  M,, ,  ).intetKill(M. pc). 

removeTypeAttr(M4nterdiction)  u Vehicles) M . l.mterKill(M.uv). 

removeType  Attr(  M  .interdiction )  a  Vehicles)  M . 1, LnterKilKM.avi. 

removeTypeAttr(M, interdiction)  buildings) M.  .  .  .  .  ). mterKilDM.be). 

removeTypeAttr(M,interdiction)  cutatM . ). inter  Kill)  M.rr). 

removeTypeAttr(M, interdiction)  bridge) M . ),mtcrKilI)M, bridge). 

interKill(M.pc)  retract) personnel) M ) .  ::o 

inter  Kill)  M,uv)  retract(u Vehicles)  M,  J)- 

interKill(M,av)  retract(aVehicles(M,^_w,_,_,J). 

interKill(M.bc)  retract(buildings(M,_,_,_,_J). 

interKill(M,rr)  retract(cuts(M,_)_wl_J). 

interKill(M, bridge)  retract ( bridge) M J ) . 

removeTypeAttr(M.areaPrep)  retract) areaPrep(M . 

removeTypeAttr(M,closeAirSupport)  retract lcioaeAirSupport(M . .,,)). 

removeTypeAttr(M,on24HrAlert)  retract(on24HrAlert(M  J). 


130 

process)3,0)  lisp) Selection^electStatus) ,  process3(Selection). 

process3(l)  /*  Cheek  status  of  planet  *f 

uaplaaes)Xl),smplanes(X2),bdplanes(X3)1mfpianes(X4),aaplanes(X5), 

nl,nl,nl, 

write) ’plane*  unaasigned  :\Xl),nl, 

write) ’planes  on  scheduled  maintenance :  *  X2),nl, 
write) ’planes  with  battle  damage  :  *7X3), nl, 
write) 'planes  coapletly  malfunctioning:  \X4),nl, 

write) ’planes  assigned  to  missions  : '.X5),ni,  mo 

write)  ’ - — - ’),ni. 

Tot  is  X1+X2+X3+X4+X5, 

write) ’Total  number  of  planes  : '  ,Tot),nl,process)3,0). 

proceas3)2)  nl.nl.nl,  /*  check  weapon  states  */ 

write)’  Veepon  Status  Report ’),nl, 

write)’ - - - - - ’),  nl. 

weapO,weapl,weap2,weap3,weap4,weap5,wetp6,weap7,process(3,0). 


weapO 

weapon) ram.20,  Amt20), 

write) ’20mm:  ’),  write) Amt20), 

write)’  rounds  in  supply’),  nl. 

weapl 

w«apon(cb,  AmtCB), 

write) 'Cluster  bombs:  ’),  write) AmtCB), 

write)’  rounds  m  supply’),  nl. 

w«ap2 

weapon)hd500,  AmtSOOHD), 
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write{ ' 500  ID:  ’).  write(Amt500HD)  ■  :60 

write(*  rounds  in  supply’),  nl- 

weap3 

weapon(Id500,  Amc500LD), 

write('500  LD:  ’),  write(Amt500LD), 

write(*  round*  in  supply* ),  nl. 

weap4 

weapon(m750,  Amt750), 

write^TSO:  ’),  write(  Amt750), 

write( *  round*  in  supply*),  nl. 

weap5  iro 

weapon(m2000,  Amt2000), 

write( ' 2000 :  *),  write(Amt2000), 

write{*  rounds  in  supply*),  nl. 
weap6  — 

weapon(napalm,  Amt  Napalm), 

write{'Iapala  (200  gal):  *),  write(  Amt  Napalm), 

write('  rounds  in  supply’),  nl. 
weap7  — 

weapon(atg,Amt), 

write('Air  to  ground:  *),  write(Amt),  :so 

write(*  rounds  in  supply'),  nl. 

process3(3) 

miscount(  Mcount), 

Mcount  >  0, 

write{  "There  ara  *),  write(Mcount), 
write( *  planned  nissions:  ’  \nlJistmissions, 
write(  ‘Which  nission  number?  *), 
read(M), 

showMission(M),  iso 

process(3,0). 

process3(3) 

miscount(  Mcount ) , 

Mcount  =  0, 

write(’Io  planned  nission*  at  this  tins. . .  *),nl. 
ptocess3(3)  writ«( ‘Supply  an  szistant  nission  next  tine'). 

showMissioo(ll)  :-  200 

mission(M,  Loc,  Type,  ST,  NP,  Comp), 
writn(  ’Mission  type:  *),  write(Type),  nl, 

writ«(  'Mission  location:  ’),  write(Loc),  nl, 
writn(  ’Mission  start  tins:  ’),  write(ST),  nl, 
write( 'Innber  of  Pianos  Assigned  :  '),  write(NP),  nl,  nl,nl, 
suggest(  M  ), 
levd(compkte,Comp,X), 
write(  ’Conpletion  level  *,X),  nl,  nl. 

showMission(M)  writn(’Vo  record  of  nission', M),  fail.  210 

list  missions 
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miaaion(X._lY,_^J1 

printout(X,Y), 

fail. 

listmissions  nl. 
print_out(  X,  Y  ) 

writ^X,’  *,Y),nl.  ;2o 

process3(4).  /*  qutt  status  check  */ 

process(4,  0)  /*  make  changes  to  databases  */ 

write(  ’Change  database1),  nl. 
write(’ Eater  password:  '). 
read(  Password), 
passwor  d(  Password ) , 
lisp(Selection.menu4), 

procesa4(Selection).  ;ao 

process(4,  0)  write( 1  Invalid  password’). 
password(secret). 
change  Password 

ask( ’Enter  old  password’, OP), nl, 
password(OP), 

ask(’ Enter  101  password',  NP),nl, 

replace(paasword(OP),paasword(NP)).  240 

changePaasword 

write(’ Password  not  changed...  error  oa  entry’). 

process4(0) 

changePaasword. 

process4(l)  /*  Change  plane  amounts  */ 

lisp(Pickjnenu41), 

process41(Pick).  -so 

process41(ua) 

uaplaaaa(X), 

writef’  There  were  ’,X),write(’  planes  anas  signed.  ’  ),xal, 

ask( ’Inpnt  the  amber  of  plaaea  that  will  aow  be  onassigned:  ’,N), 

replace(uaplaaes(J,uaplanes(N)). 

process41(sm) 

smplaaes(X), 

write( ’There  were  \X),writ«(*  plaaea  oa  scheduled  aaiateaaace.  ’),nl,  280 

ask( ’ Input  the  auaber  of  plaaea  that  will  aow  be  oa  scheduled  aaiateaaace:  \N), 
repiace(smplanes(J  ^mplanee(  N )) . 

procese41(bd) 

bdplaaea<X), 
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writa('Th*r*  vara  *,X),write('  planes  *ith  battle  damage . ' ) ,nl, 

ask( ’  Input  th*  nuabar  of  plaaaa  that  till  no*  have  battle  damage: '  •N), 

replace^  bdplanea(_),bdplane3(N)). 

process41(mf)  2ro 

rafplaaes(X), 

write('Tb*re  ware  \X),write(*  plane*  Malfunctioning.  ’),nl, 

aak(’ Input  tha  nuabar  of  planaa  that  *ill  no*  be  Malfunctioning: ’.N), 

replace(mfplanea(j  ,mfplanes(  N ) ) . 

process'll  (none) 

iisp(  Selection  ,menu4 ) , 
proceaa4( Selection). 

process4(2)  :ao 

iisp(SeUoadtype), 
procesa42(Sel). 

addchange( Type, add) 

weapon(Type,X), 

aak(’ Input  nuabar  of  units  to  add:  ’  ,Amt),nl, 

Y  ii  X  +  Amt, 

replace(weapon(Type,X)  ,weapon(Type,  Y)) . 

addchange(Type, change)  290 

ask( ' Input  nuabar  of  units:  >,Amt),ni, 
replace(weapon(Type  J,weapon(Type,Amt)), 

addchange(Type, neither)  write{ ’ lo  change  aad*-’),nl. 

process42(mm20)  :—  /*  change  weapon  amounts  */ 

weapon(mm20JC), 

write(’Th*r*  are  ',X),write( ’rounds  of  20aa.’), 
lisp(  Choice,  addorchange), 

addchange(mm20,  Choice).  300 

process42(cb) 

weapon(cb,X), 

writa(  ’Thar*  are  '  ,X),write(  *  Clustar-Boaba.  ’), 
lisp(  Choice, addorchange), 
addchange(cb, Choice). 

process42(hd500) 

waapoa(hd500rX), 

writa( ’Thar a  are  >,X),writ«(’  500  HD’),  310 

lisp( Choice  .addorchange), 
addchanga(  hdSOO,  Choice). 

process42(ldS00) 

waapoo(ld500,X), 

write( 'Thar*  are  ’,X),writa(’  500  LD.’), 
lisp(  Choice  .addorchange), 
addchang*(ld500, Choice). 
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l 


I 


I 


ft 


ft 


ft 


ft 


Assignment  £«/« 


OMn{  60}(  Misstonjype,  MennCkotce,PlanesNeeded). 
assn{not  .60}  (  Misstonjype,  MennChotce,  Planes  Needed)  - 

ossn{.60)(  Misstonjype ,  MennChotce,  Needed) 
Planes  Needed  ts  Needed  *  Factor. 

u/Acre  Factor  is  3.0  for  90+% 

Factor  m  1.5  for  75+%  10 

Factor  is  0.8  for  45+% 

Factor  ts  0.\  for  20+%  t/ 

a»n{  .20}(on24Hr  Alert, ,_J. 
assn{.45}(on24HrAlert,_J. 
aa»n{  .60}  (on24Hr  Alert,  _J . 
assn  { .  75}  (on24Hr  Alert J . 
assn{.90}(on24HrAJert,_J. 

:o 


»n{  20)(^rep,M.NP)  aa*n{.60}(afeaprep,M.N),  NP  U  N  •  0.4. 
a«i.{.45K«~prep,M1NP)  M»,{.50)(ar«p«p,M,N),  NP  i,  N  •  0.8. 


a«n{.60}(  are ap rep,  1,  4.0  ) 
assn{.60}(  are ap rep,  2,10.0  ) 
a«n{.60}(  areaprep,  3,18.0  ) 
a«n{.60}(  areaprep,  4,30.0  ) 
assn{.60}(  areaprep,  5,50.0  ) 


2S  '  ““(  ®H««P>ep.M.N)rNP  U  N  *  1.5. 
an{.90|(»re«prep,M,NP)  »«{.60K»re»prep,M,N),  NP  it  N  *  3.0. 


assn{.2Q}(pc,M,NP) 

asan{.45}(pc,M,NP) 


aaan{.60}(pc,M,N),  NP  is  N  *  0.4. 
aaan{.60}(pc,M,N),  NP  is  N  *  0.8. 


aaan{.60}(pc,squadI1.0):-  !. 
aaan{.60}(pc, platoon, 1.0):-  !. 
aaan{.60}(pc,eoapany4.0):-  ». 
aaan{  6Q}(p€,battalion,8.0):-  !. 
asen{.60}(pc,regiineat,23.0):-  !. 
aaan{.60}(pc,otl*r,70.0):-  !. 


30 


40 


“i  2wPC’IM!2  -»{  WKpc,M,N),  NP  is  N 
•n{.90}(pc,M,NP)  a»n{.60}(pc,M,N),  NP  is  N 


*  1.5. 

*  3.0. 


ft 


M,n{-20}(cioaeAirSupport,M,NP)  , 
a»n{.45}{cloaaAirSupport,M,NP)  j 

»«n{.80}(cioaeAirSupport4quad,l.0):- 

aaan{  .80}  (cloaaAirSupport,  platoon,  1.0) 


i{.80}(closeAirSupport,M,N),  NP  is  N  •  0.4. 
{.60}(cloaeAirSupport,M,N),  NP  is  N  *  0.8. 


r. 


30 


ft 
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aasQ{.60}(doseAirSupport,compaay,3.0).-  ' 
aasn{.60}(dossAirSupport, battalion, 8.0):-  !. 
a»n{.60}(clowAirSupport.regunent,25.0):—  !. 
aasn{.60)(doseAirSupport,oth«r,70.0):-  !. 


aa»n{.75}(cloaeAitSupport,M,NP) 
assn  {.90}  (dose  Air  Support,  M,NP) 


aaan{.60}(doeeAirSupport.M,N),  NP  is  N  *  1.5. 
aMn{.60}(closeAirSupport,M,N),  NP  is  N  *  3.0. 


assn{.20}(uv,M,NP)  :-  assn{.60}(uv,M,N),  NP  U  N  *  0.4. 
aa§n{.45)(uv,M,NP)  :-  assn{.60}(uv,M,N),  NP  is  N  *  0.8^ 


aaso{.60}(uv,5,24.0):—  !. 
aasn{.60}(uv,4,8.0):-  !. 
aa«n{.60}(uv,3,5.0):—  !. 
aasn{.60)(uv,2,4.0):-  !. 
aaan{.60)(uv,  1,2.0):-  !. 


so 


assn{.75}(uv,M,NP)  assn{.60)(uv,M,N),  NP  is  N  *  1.5. 

aa»n{.90}(uv,M,NP)  assn{.60)(uv,M,N),  NP  is  N  *  3.0. 


assn{.20)(av,M,NP)  :-  assn{.60}(av,M,N).  NP  is  N  •  0.4. 

assn{.45}(av,M,NP)  aasn{60}(av,M,N),  NP  is  N  *  0.8. 

aasn{.60}(av, 0,0.0):-  !. 
aasn{.60}(av, 1,3.0):-  !. 
assn{.60}(av, 2,6.0):-  !. 

assn{.60}(av,3,12.0):-  !.  » 

as8n{.60}(av,4,20.0):—  !. 

assn{.75}(av,M,NP)  :-  aasn{.80}(av,M,N),  NP  is  N  •  1.5. 

aasn{.90}(av,M,NP)  :-  assn{.60}(av,M,N),  NP  is  N  *  3.0. 


aaso{.20}(bc,M,NP)  :-  assn{.60}(bc.M,N),  NP  is  N  •  0.4. 
assn{.45}(bc,M,NP)  :-  assn{.60)(bc,M,N),  NP  is  N  •  0.8. 


a*tn{.6Q}(bc, 1,2.0):—  !. 
assn{.60}(be,2,4.0):—  !. 
a*sn{.60)(bc,3,8.0):-  !. 
a*sn{.60}(bc,4,16.0):—  !. 
asan{  60}(bc,5,24.0):-  !. 
assn{.60}(bc,6,30.0):-  !. 


a»n{.75}(bc,M,NP) 

assn{.90)(bc,M,NP) 


a«n{.60}(bc,M,N),  NPUN  •  1.5. 
Msn{.60Kbe,M,N),  NPUN*  3.0. 


90 


100 

assn{.20}(rr,M,NP)  :-  a*n{.60}(rr,M,N),  NP  is  N  •  0.4. 

M*n{.45}(rr,M,NP)  :-  assn{.60}(rr,M,N),  NP  is  N  •  0.8. 

aasn{.60}(rr,l,2.0):—  !. 
asso{.60}(rr,2,2.0):-  !. 
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aa*n{.60}(rr,3,4.0):-  !. 
assn{.60)(rr, 4,6.0):-  !. 

assn{.75}(rr,M,NP)  a«n{.60)(rr.M.N),  NP  U  N  M  5 

aasn{.90}(rr,M,NP)  :-  a«n{.60}(rr,M,N),  NP  i.  N  •  3.0.  uo 


aatn{.20}(bridge,M,NP)  aasn{.60}(bridge,M,N),  NP  is  N  *  0.4. 

assn{ .45} (bridge,  M  ,N P )  aaan{.60}(bridge,M,N),  NP  is  N  *  0.8* 

aasa{.60}(bridge,l,2.0):-  !. 
assn {.60} (bridge, 2, 2.0):-  !. 
assn{.60}(bridge,3,4.0):-  !. 
aasn{.60}(bridge,4.,8.0).-  !. 
a*n{.60}(bridge,5,8.0):-  !. 

assn{.75}(bridge,M,NP)  aasn{.60}(bridge,M.N),  NP  is  N  *  1  5 

aasn{.90}(bridge,M,NP)  :-  assn{.60}(bridge,M,N),  NP  is  N  *  3^0. 


assnpc(  5,  X,Y,Z  )  :-  assn{.90}(X,Y,Z). 

«ssnpc(  4,  X,Y,Z  )  :-  aasn{.75}(X,Y,Z). 
assopc(  3,  X,Y,Z  )  :-  assn{.60}(X,Y,Z). 
aasnpc(  2,  X,Y,Z  )  :-  assn{.45}(X,Y,Z). 
assnpc(  1,  X,Y,Z  )  :-  assn{.20)(X,Y,Z). 

r 

asstyntny  additional  aircraft  for  various  factors: 


7 

extr  a_assn(  an  ti.air  ,1,0). 
extra_assn(anti_air,2,l). 
extra_aasn(anti_air,3,2). 
extra_aasn(anti_air,4,4). 
extr  a_aasn(  an  ti_air  ,5,7). 

extr  a_assn(san*ites,  1,0). 
extra.saiQ(saiDSttes,  2,1.5). 
extra_asro(san»ta.,3,3). 

extraIsssD(sanit«s,,5,,lo'). 

extra.astn(locover,l,l). 
«xtra.ssso(loeov«t,2,l.L25). 
extrs_assn(locover,3,2.0). 
e*tra.sssn(lo«over,  4,2.5). 

extr  a.sssn(  terrain, op  en,l). 
extra.a«n(terrain,  hilly,  1.3). 
extra_aesn(terram, mountains, 2). 

extr  a_aasn(  cover  .open ,  1 ) . 


/*  Anti- aircraft  guns  */ 


/*  Surface  to  Air  missile  sites  •/ 


/*  Lout  altitude  cover  */ 


/*  Terrain  type  */ 


/  *  Protective  cover  type  *f 


HO 


150 
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extra_aaon(cover,sb,1.25). 
extra_ae«n(co vet  jungle,!  .5). 
extrs_assn(cover,  urban,  1.8). 


(/users/maai/gwright/lonnie/newrules.mprolog) 


l«0 


extra_asen(avehks,Q,Q). 
extra_asen(  avehic*,  1,3). 
extra_aasn(avehics,2,6). 
extra_aeen(avehics,3,14). 
extra_aasn(avehic*,4,20). 


/*  number  of  armoured  vehiclet  */ 


■ign_avs(AV,NpIanes)  !,extra_aasa(avehica,AV,Nplanes). 


170 


aseifnjst<lJactOM(AA,SS,Npiane3)  /  *  assign  values  for  these  typical  mission  factors  */ 

i 

•» 

extra_assn(anti_air,AA,A), 

extra_aa*n(samsite3,SS,S), 

Nplanes  is  A  +  S. 

compute_terr.factor»(Terr,Cov,LC, Factor)  /  *  Multiplying  factors  to  number  of  planes  */ 

*» 

extra.aasn(  terrain, Terr  ,T) , 
extra_aa*n(cover,Cov,C), 
extra  assn(k>cover,LC,L), 

X  is  T  *  C, 

Factor  is  X  *  L. 

/*  Load  assignments  : 

loads  will  be  made  into  a  database,  since  lists  are  so  difficult 
to  implement.  The  tuples  added  to  the  database  will  follow  this 
general  rule:  - 

loadjnissiontype(  Mnum,  Bpossible  factors) 

assert)  loadpc)  Mnum,  Load ,  Fusing,  %t  )  ), 


iso 


190 


r 


assert (  loadpcf  Mnum,  Load,  Fusing,  %*  )  ). 

Mnum  is  a  mission  number,  possible  factors  include  materials, 
roadtppas,  defensive  positions,  cover  etc... 


coverjoadsf  Mnum,  Pert,  CoverLevtl  ) 


200 


7 

7 


cover Joads(  M,  P,  open  ) 

X  is  P/2, 

t(  lo*dpc(  M,  napalm,  impact,  X  )  ), 
t(  Ioadpc(  M,  eb,  impact,  X  )  ). 


cover Joads(  M,  P,  sb  ) 
Y  is  P/3, 


210 
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assert(  loadpc(  M,  napalm,  impact,  Y  )  ), 
uairt(  loadpc(  M,  cb,  impact,  Y  )  ), 
uMrtj  loadpe(  M,  hd500,  impact,  Y  )  ). 

covet  loads(  M,  P,  jungle) 

Y  is  P/3, 

ass«xt(  loadpc(  M,  hd500,  impact,  Y  )  ), 

assert(  loadpc(  M,  m750,  impact,  Y  )  ),  230 

assert(  loadpc(  M,  m2000,  impact,  Y  )  ). 

cover  loads(  M,  P,  urban  ) 

X  is  P/2, 

assert(  loadpc(  M,  m2000,  impact,  X  )  ), 
assert(  loadpc(  M,  atg,  impact,  X  )  ). 


/*  defposJoada(  Mn am.  Pen,  DPLevel  )  */ 

230 

defpos Joada(  M,  P,  none  ). 

defpos  loaded  M,  P,  trenches  ) 

X  is  P/2, 

assert(  loadpc(  M,  hd500,  delayed,  X  )  ), 
assert(  Ioadpc(  M,  m750,  delayed,  X  )  ). 

defpos_loads(  M,  P,  tunnels  )  assert (  loadpc(  M,  m2000,  delayed,  P  )  ). 

defpos  loads(  M,  P,  reb  )  240 

X  is  P/2, 

assert(  loadpc(  M,  m2000,  delayed,  X  )  ), 
assert(  loadpc(  M,  m750,  delayed,  X  )  ). 

load_24hr(  M  ) 

assert(  loadpc(  M,  napalm,  imru:t,  0.40  )  ), 
assert(  loadpc(  M,  hdfiOO,  imp  ',  0.40  )  ), 
aaaert(  loadpc(  M,  atg,  proximity,  0.20  )  ). 

load  close Air(  M,  P  )  :-  2*0 

A  is  4S*P,  B  is  10*P, 
ass  art  (  loadpc(  M,  napalm,  impact,  A  )  ), 
aeaast(  loadpc(  M,  hdSOO,  impact,  A  )  ), 
asaart(  loadpc(  M,  cb,  proximity,  B  )  ). 

Ioad.ap(  M,  P  )  :~ 

Y  is  P/3, 

aasart(  loadpc(  M,  cb,  proximity,  Y  )  ), 
asaart(  loadpc(  M,  m750,  delayed,  Y  )  ), 

assart(  loadpc(  M,  m3000,  delayed,  Y  )  ).  380 

/•  interdiction  lends  (ltd)  */ 

loadj>er*(  M,  P  )  :- 
Z  is  P/4, 
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aaaa«i(  loadpc(  M,  bd500,  impact,  Z  )  ), 

aaeart(  loadpc(  M,  m750,  impact,  Z  )  ), 

MMrt(  loadpc(  M,  m2000,  impact,  Z  )  ), 

aasart(  loadpc(  M,  cb,  proximity,  Z  )  ). 

270 

load  uv(  M,  P  )  :- 
X  is  P/2, 

assart(  loadpc(  M,  atg,  impact,  X  )  ), 
assart(  Ioadpc(  M,  napalm,  impact,  X  )  ). 

load_av(  M,  P  )  :— 

X  is  P/2, 

assert(  loadpc(  M,  atg,  impact,  X  )  ), 
assert(  loadpc(  M,  IdSOO,  impact,  X  )  ). 

280 

load  cuU(  M,  P,  1  ) 

X  is  P/2, 

assert(  loadpc(  M,  m750,  delayed,  X  )  ), 
assert(  load  pc  (  M,  m2000.  delayed.  X  )  ). 

load  cut«<  M,  P,  2  ) 

X  is  P/2, 

assort(  loadpc(  M,  m750,  impact,  X  )  }, 
aasert(  loadpc(  M,  atg,  impact,  X  )  ). 

290 

load„cuts(  M,  P,  3  ) 

X  is  P/2, 

assart (  loadpc(  M,  m750,  impact,  X  )  ), 
aaaert(  loadpc(  M,  atg,  impact,  X  )  ). 

load_buildmata(  M,  P,  wood  )  aaaert(  loadpc(  M,  napalm,  impact,  P  )  ). 
load  buildmata(  M,  P,  rhut  ) 

X  is  P/2, 

aas«rt(  loadpc(  M,  hdSOO,  proximity,  X  )  ), 

ass«rt(  loadpc(  M,  m750,  proximity,  X  )  ).  300 

load  bnildmats(  M,  P,  brick) 

X  is  P/2, 

assart(  loadpc(  M,  m750,  proximity,  X  )  ), 

as#srt(  loadpc(  M,  m2000,  proximity,  X  )  ). 

load.buildmats(  M,  P,  re  ) 

X  is  P/2, 

mm rt(  loadpc(  M,  m750,  delayed,  X  )  ), 

anseft(  loadpc(  M,  m2000,  delayed,  X  )  ). 

loed_bridgemats(  M,  P,  wood)  310 

Y  is  P/3, 

assert(  loadpc(  M,  hdflOO,  impact,  Y  )  ), 
aasart(  loadpc(  M,  m750,  impact,  Y  )  ), 

— sart(  k>adpc(  M,  atg,  impact,  Y  )  ). 


load.bridgemats(  M,  P,  concrete) 

X  is  P/2,  Z  is  P/4, 

assart(  loadpc(  M,  m750,  delay,  Z  )  ), 
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— to*dp«(  M,  m2000,  delay,  Z  )  ), 

MM>t(  loadpc(  M,  atg,  impact,  X  )  ).  ^ 

load.bridgcmata(  M,  P,  atari) 

X  b  P/2,  Z  b  P/4, 
a*Mrt(  Ioadpc(  M,  m750,  driay,  Z  )  ), 
aaa«rt(  loadpc(  M,  m2000,  driay,  Z  )  ), 
a«awt(  loadpc(  M,  atg,  impact,  X  )  ). 
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